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DESCRIPTION OF A DIGITAL COMPUTER PROGRAM 
FOR AIRPLANE CONFIGURATION PLOTS 


By Charlotte B. Craidon 
Langley Research Center 

SUMMARY 


A digital computer program (D2290) is presented which generates the necessary 
instructions for automatic plotting of an airplane numerical model. Program options 
may be used to draw three-view and oblique orthographic projections, as well as perspec- 
tive projections of an airplane. These plots are useful in checking the accuracy of the 
numerical model data. Magnetic tape output from this program has been used to drive a 
CalComp plotter and a Gerber plotter. The program has also been used for online dis- 
play of a configuration on a cathode -ray -tube device. 

INTRODUCTION 

In order to study the aerodynamic characteristics of an airplane configuration with 
the aid of a digital computer, it is first necessary to construct an accurate numerical 
model of the configuration from engineering drawings, or other sources, in a form accept- 
able to the computer. This model may then be used as input for computer programs 
which compute aerodynamic characteristics such as lift and drag. 

Checking of the voluminous and often complicated numerical model input data poses 
a difficult task. All geometry must be input correctly to avoid erroneous analysis results. 
A numerical description of any aircraft, particularly a very complex configuration, may 
contain errors which occur through human judgment, mispunched data cards, and incor- 
rectly transcribed data. The purpose of this report is to describe the digital computer 
program, D2290, which has been developed to generate the necessary instructions for 
automatic plotting of an airplane numerical model. The program was written in 
FORTRAN Version 2.0 for Control Data series 6000 computer systems. Approximately 
55000 octal locations of core storage are required and the processing of information for 
one plot requires less than 1 minute of computer time. 



The graphical representation of the configuration in orthographic, perspective, and 
stereo views has proven to be an effective method of verifying the numerical input data. 
The viewing angles used in producing the figures are specified as part of the input to the 
program. In general, several plots of a single configuration from different viewing angles 
are made to insure the detection of all errors. Sample input listings for typical configu- 
ration plots are presented in tables I to IV and the corresponding plots are shown in fig- 
ures 1 to 6. 


PROBLEM DESCRIPTION AND METHOD OF SOLUTION 

The numerical model of the airplane configuration is assumed to be symmetrical 
about the XZ-plane and may include any combination of components: wing, body, pods, 
fins, and canards. The wir^ is made up of airfoil sections, the body is defined by either 
circular or arbitrary sections, the pods are defined similar to the fuselage, and fins and 
canards are defined similar to the wings. 

The configuration is usually positioned with its nose at the coordinate system origin 
and with the lei^h of the body stretching in the positive x-direction. 

The coordinate system used for this program is a right-handed Cartesian system 
as illustrated in the following sketch: 


Z 



Successive points in the plotted arrays are connected by straight lines; therefore, 
sufficient points must be given to approximate a desired curve. 

ORTHOGRAPfflC PROJECTIONS 

The orthographic projections illustrated in this report are created by rotating each 
point on the body surface to the desired viewing ar^le and then transforming the points 
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into a coordinate system in the plane of the paper. The body coordinate system is coin- 
cident with the fixed system in the plane of the paper when all of the rotation angles are 
zero; for example, the configuration X-axis and Y-axis would coincide with the paper for 
plots in the paper plane. 

The rotations of the body and its coordinate system to give a desired viewing angle 
are specified by angles of roll, pitch, and yaw (0, 0, and if/), shown in the following 

sketch: 



The equations used to transform the given points on the body (x,y,z) with a specified 
set of rotation angles {((), 0, if/) into the desired paper plane are 

Xq = x(cos 0 cos if/) + y(-sin if/ cos <p + sin 0 cos if/ sin 0) + z(sin if/ sin <p 
+ sin 9 cos if/ cos 0) 

y^ = x(cos 0 sin if/) + y(cos if/ cos ^ + sin 9 sin if/ sin + z(-cos if/ sin 0 
+ sin 9 sin if/ cos 0) 

Zq = x(-sin 9) + y(cos 9 sin 0) + z(cos 9 cos 0) 
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For each set of four adjoining input data points numbered counterclockwise, the 
unit normal vectors are computed as follows: 




'^l,z ■ ^3 " ^1 

^2,x = =‘4 - *2 

T2,y = ^4 - ^2 

"^2,z = ^4 ■ ^2 

Nx = T2,yTM-^l,y^2.^ 




Ny = 




Ny 

"y N 


n = — 
Z 


where N = + Ny^ + . 

The value of the component of the unit normal in the x^ direction ^out of the 
YqZq paper plane) may be found from the following equation: 

= njj(cos e cos p) + ny(-sin i// cos 0 + sin 0 cos if/ sin (j)) + n 2 ,(sin ip sin 0 
+ sin 9 cos ip cos (p) 

The components ny^ and n^^ may be found in a similar manner using the same angles 
and equations used in rotating the coordinate points. 

If njjQ is positive and the specified paper plane is the Y^Z^-plane, the four data 
points are facing the viewer. If n^^^ is negative, the four points face away from the 
YoZo -plane. In the same manner, ny^ may be tested for the X^Z^ paper plane and 
n for the X Y paper plane. These results may be used by the program to provide 

ZO O O * 
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the capability of deleting most elements on the surface of the configuration which would 
not be seen by a viewer; thus, many confusing elements are removed. No provision is 
made in this program for deleting portions of an element or components hidden by other 
components. 


PLAN, FRONT, AND SIDE VIEWS 


In addition to the option of single orthographic projections of each view, another 
option to combine the plan, front, and side views is provided. This option provides for a 
compact and pleasing-to-the-eye arrangement where the three views are spaced one 
above the other. 


PERSPECTIVE VIEWS 

The perspective views represent the projection of a given three-dimensional array. 
The two-dimensional view is constructed relative to a viewing point and a focal point 
specified by coordinate points in the input data coordinate system. Data are scaled to the 
viewer page size automatically by the specification of the viewing field diameter and the 
viewing field distance. The viewer page represents the portion of the image seen from 
the view point relative to the focal point and viewing plane. The coordinates of the 
viewing point determine the position from which the data array will be viewed, and the 
coordinate values of the focal point control the direction and focus. The size of the pro- 
jection on the viewing plane will reflect the distance between the viewing point and focal 
point. Data which are within the cone of the viewing plane but not in the immediate range 
of the focal point may be distorted. 


STEREO VIEWS 

The explanation of the perspective views also applies to the stereo views. The use 
of the stereo option causes the program to be executed twice in setting up two plots for 
the left and right frames. These frames are suitable for viewing in a stereoscope. 
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PROGRAM DESCRIPTION 


OVERLAY ARRANGEMENT 

The program is set up in the overlay mode and the following chart illustrates the 
overlay arrangement: 

Overlay(0, o) 



The control program (0,0) calls in the other parts of the program as they are 
needed. The initialization overlay (1,0) reads the numerical model, converts the input 
data to actual units, computes the unit normal vectors, and temporarily stores the airplane 
description as a series of lines with associated vectors. The plot control overlay (2,0) is 
called after the plot specifications are read, and notation and spacing for the plots are 
determined from these data. The next overlay (2,1) or (2,2) is determined by the type of 
plot desired. 
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PROGRAMS AND SUBROUTINES 


Program D2290 

Program D2290 (overlay (0,0)) is the control program. It reads the airplane con- 
figuration identification card, the card containing control numbers for the configuration 
description, and the plot specification card. Other parts of the program are called as 
they are needed. The flow chart and the FORTRAN statements for this overlay are as 
follows: 
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c 

c 

c 

c 


c 


c 


c 

c 

c 


c 

c 

c 

c 

c 

c 


c 

c 

c 


overlay (CBC*0*0> 

PROGRAM D3290 ( I NP JT» I 00 I ♦ OUTPUT® 1 00 1 ♦ 

1 TAPE5* 1 NPUT « TAPe6 = 0UTPUT i 

2TAPE9® 1 OOi *TAPE 10=1001 * TAPE 1 2= 1 001 ) 

02290 aircraft CONFIGURATION PLOTS 

programer - Charlotte b* craidon 

COMMON ABC(8>*J0< J1 • J2 • J3 * J A . J5 ♦ J6 * 

1 NW AF ♦ NW AFOR • NFUS * NR ADX ( 4 ) » NFORX ( 4 ) * NP * NPODOR « 

2NF*NF1 NOR *NCAN . NC AnOR • 

3J2TEST,NW»MC« 

4A6C0E(8),H0RZ,VERT*TEST1 , PM I • THET A , PS I • XF . YF . ZF , O I ST . FMAG# 
5PL0TS2 • TYPE < KODE • 

6XMIN*XMAX«YMIN» YMAX.ZMINfZMAXt 
7XM I O . YM r D ♦ 2M I 0 » B I 00 • I SP 


DIMENSION ABCOCS) 


CBC»3LCBC 
RECALL»6HRECALL 
CALL CALCOMP 
WR1TE(6« 1 > 

1 format ( 1 HI 1 7X47HPR0GR am 02290 
DO 2 I*l «6 

2 WRITE M2) DUM 


PLOTS OF AIRCRAFT CONFIGURATION//) 


INPUT 1ST TWO CARDS 


3 FORMAT <8A10) 

S READ (5*3) ABC 
IF (EOF. 5)25*7 
7 WRITE (6*lO)ABC 

10 FORMAT (28X25MCONFIGURAT10N DESCR I PT I ON// I X8A 1 0/ ) 

READ <5*3 ) ABCD 
WRITE <6*12)ABCD 
12 FORMAT (IX8A10/) 

DECODE (72«14*AbCD) JO * J I * J2 * J3 * J4 * J5 * J6 * NWAF « NWAFOR * 
INFUS* (NRA0X< I ) *nFORX( I ) *1=1 *4 ) «NP* NPODOR* 

2NF « NF I NOR « NCAN « nC AnOR 
14 FORMAT (2413) 

INPUT configuration DESCRIPTION AND INITIALIZE 


CALL overlay <CRC*1*0*0> 

PLOT configuration 
WRITE (6.20) 

20 FORMAT (//36X9HPLOT DATA//) 

22 READ (5*3) ABCDE 
IF (EOF. 5) 25.30 
25 CALL CALPLT (0..0..999) 

STOP 

30 WRITE (6.12) ABCOE 

DECODE (72*35*AbCOE ) HORZ * VERT * TEST 1 *PHl .THETA . PS I . XF . YF • 2F . O I ST ♦ 
1FMAG.PL0TSZ.TYPE.X00E 
35 FORMAT ( 2A2 . A3 . 9F5 . 0 . A3 , 1 6X . 1 1 ) 

call overlay (CpC. 2.0. RECALL) 

IF (KODE.EQ.O) GO TO 22 
WRITE (6.40) 


FORMAT 1 

: 1 Hi 

GO TO 5 


END 

OF 


END 
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Program START 


Program START (overlay (1,0)) reads the configuration description cards, changes 
the input values to actual units where necessary, and computes the minimum and maxi- 
mum dimensions of the given configuration. It then computes the outward normal vectors 
and uses intermediate storage for the configuration description and vectors. This pro- 
gram is called only once for a given configuration. The flow chart and the FORTRAN 
statements for this program are as follows: 
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n r> r> 


OVEPlAV (CBC* ! »o ) 

program start 


IMPLTTS and initializes CONF I GURAT I ON DESCRIPTION 


c 


c 


c 


c 


c 


c 


c 


COMMON ABC ( 8 ) . JO * J 1 t J2 . J3« J4 ♦ J5 1 J6 • 

1NWAF,NWAF0R*NFUS*NRADX <4 ) fNFORXiA) *NP*NPODOR4 
2 nf*nfinor,ncan*nCanor. 

3J2TEST»NW*NC » 

4ABCDE(8) tHORZfVERT* TESTl *PHI , THETA* PS I 4 XF * YF » ZF . D 1 ST • FM AG * 
5PLOTSZ . TYPE • KODE * 

6XM IN.XMAX * YM IN* yMAX*ZM I N« ZMAx* 

7XMID* YMI0*ZMID*RIGD* ISP 

dimension Block ( 7500 ) 

DIMENSION XAFOO) . WAFORG ( 20 * 4 ) • WAFORD ( 2 0 * 3 » 30 ) *TZOR0(20i30 ) 
equivalence (BLOCK, XAF) , (BLOCK (31 ) ,WAFORG) * 

1 (BLOCK ( U 1 > *WAF0R0 ) ♦ (BLOCK <1911 > ,TZ0RD) 

DIMENSION XFUS (30,4 ) *ZFUS(30,4 > ,FUSARO <30,4 > , FUSRAO ( 30 , 4 ) , 
lSFUS(30,30*a ) 

equivalence (BLOCK , XFUS ) » (BLOCK ( 121 ) ,ZFUS ) , (BLOCK (24 1 ) ,FUSARD > , 
1 (BLOCK (361 ) ,FUSRAD) , (BLOCK (241 ) ,SFUS) 

DIMENSION POOORG(9,3 ) ,XP0D<9«30 ) ,PODORD(9,30 ) ,XP0D1 (9,30 ) 
equivalence (BLOCK, PODORG) , (BLOCK (26) ,XPOD) , (BLOCK (298 ) , PODORD > 
1 < BLOCK ( 568 > , XPOD I ) 

DIMENSION FIN0RG( 6,2,4 > ,XFIN<6, 10) ,F INORO <6 ,2 , 1 0 > , 

IF 1NX2 (6,2, 1 0),FINX3(6,2,101 

equivalence (BLOCK.FINORG) , (BLOCK (49) ,XF IN) , (BLOCK < 1 09 ) «FINORD) 
1 (BL0CK(229>,FINX2) , ( BLOCK ( 349 ), F 1 NX3 ) 

DIMENSION CAN0RG(2,2*4 ) ,XCAN(2* 10) ,CAN0RD(2*2, 10 ) , 

ICANORI (2,2,10) ,CANORX(2,2,10) 

equivalence (BLOCK, CANORG > , ( BLOCK ( 1 7 ) , XCAN ) , < BLOCK ( 37 >, CANORD ) , 
1 ( BLOCK ( 77 ) , CANOR I ) , ( BLOCK (117), CANORX ) 


C 

c 


c 

c 

c 


c 

c 

c 


DIMENSION ABCD<6) 

DIMENSION ALRT(31 , 3 ,2 ) , VECRT (30,3 ) , 
1 ANSINOO ),ANCOS(30) 

DATA NAN2/24/' 

DATA PI/3,14159265/ 


REWIND 

REWIND 

REWIND 

1 format 

2 FORMAT 
4 FORMAT 
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10 
12 

(8A10 > 

( 1X0A1O ) 
( 1 0F7.0 ) 


REFERENCE AREA 

IF (J0,NE,2) GO TO 12 
READ (12) REFA 
WRITE <9) REFA 
GO TO 15 

12 IF (JO.EO.O) GO TO 14 
READ (5,1) ABCD 
WRITE (6,2) ABCD 
DECODE (7, 4, ABCD) REFA 

14 WRITE (9) REFA 
READ (12) DUM 

WING 

15 IF (J1.NE.2) GO TO 18 
NWAFOR- IABSINWAFOR) 

NW*NWAFOR 

READ (12) BLOCK 
WRITE (9) BLOCK 
GO TO 306 

18 IF (J1*EQ,0) GO TO 45 
N« lABS (NWAFOR) 

NREC* (N+9 >/l 0 

ll*-9 

12*0 

DO 20 NN*1,NREC 
READ (5,1>ABCD 
WRITE (6,2) ABCD 
11*11+10 
12*12+10 

DECODE (70,4, ABCD) (XAF ( I) , 1*1 1 , 12) 
20 CONTINUE 

DO 24 1*1 ,NWAF 
READ (5,1) ABCD 



WRITE (6*2) ABCO 

DECODE f26*4,ABC0) ( WAF ORG ( I . J > . J* 1 • 4 > 

24 CONTINUE 

IF (J1*LT,0) GO TO 30 
DO 26 NN«lfNWAF 

n»-9 

I2«0 

DO 26 Nl»l «NREC 
READ (S«l> ASCD 
WRITE (6f2)ABCD 
11*11410 
12*12410 

DECODE (70,4,ABCD) ( TZORD (NN « t ) « I * ! 1 t 1 2 ) 

26 CONTINUE 
28 CONTINUE 
GO TO 35 

30 DO 32 I*I,NWAF 
DO 32 K*t «N 
32 TZOROt 1 *K )-0 • 

35 L«l 

IF <NWAFOR*LT*0 ) L*2 
DO 40 NN*1 «NWAF 
DO 40 K*1 «L 
I I *-9 
12*0 

DO 38 Nl *1 .NREC 
READ <5*1 ) ABCD 
WRITE (6*2) ABCO 
11*11410 
12*12410 

DECODE <70. 4. ABCD) <WAFORO <NN .K * I ) * I » 1 1 . I 2 ) 

38 CONTINUE 
40 CONTINUE 

IF <NWAFOR»LT.O) GO TO 44 
DO 42 NN*| *NWAF 
DO 42 K*1 *N 

42 WAFORD (NN*2«K ) kwAFORD (NN« 1 *K > 

44 CONTINUE 

NWAFOR* 1 ABS ( NWAFOR > 

NW«NWAFOR 
J1*IA8S( J1 ) 

C 

c CHANGE TO ACTUAL UNITS. COMPUTE MINI MUMS AND MAX I MUMS 

C 

DO 215 1*1 «NWAF 
E*«01«WAFORG < I «4 ) 

E3»WAFORG< I *3) 

DO 210 J*l .NWAFOR 

WAFORDI I « 1 • J)*E*WAF0RD( I * 1 ♦ J )4E34TZ0«0 < I * J) 

WAFORO < 1 • 2 . J ) »-E*WAF0RD (I « 2 • J ) 4E34TZ0RD ( 1 . J ) 

2 1 0 W AFORD < I • 3 • J 1 -WAFORG < I * 1 ) 4E*XAF < J ) 

215 CONTINUE 

306 XMIN-XMAX-WAF0RG( 1 • 1 > 

VMAx«WAFORG< 1.2) 

ZM1N«ZMAX*WAF0RD ( 1 « 1 • I ) 

DO 310 N*1 .NWAF 

XMAX*AMAX1 <XMAX tWAF0RD(N«3*NW ) ) 

XM1N*AM INI (XM1N.WAF0RD<N«3« 1 ) > 

YMAX*AMAX1 (VMAX.WAFORGIN.Z ) ) 

DO 306 NN*1 «NW 

ZMAX*AMAX1 ( ZMAX «W AFORD (N« 1 *NN) ) 

ZMlNaAMINl <ZM I N . W AFORD < N • 2 « NN ) ) 

308 CONTINUE 
310 CONTINUE 
C 

C WRITE PLOT tape 

C 

NLl *NW-1 
C 

C SETUP 1ST LINE iN STREAMWISE DIRECTION 

C 

DO 430 1*1*2 

DO 405 N*l *NW 

ALRTIN* 1 *2 )-WAFORD< I *3 iN) 

ALRT(N*2*2)*WAF0RG< 1 *2» 

ALRT(N*3*2 )«WAF0RD( 1 • I *N) 

405 CONTINUE 

WRITE (10) ( (ALRT<N«N3*2) «N*1 «NW) «N3>1 *3 ) 

DO 425 NN»2.NWAf 
DO 410 N»1 *NW 
DO 410 N3«) *3 
ALRT<N.N3.1 )*ALRT (N*N3*2) 

410 CONTINUE 

DO 415 N*1 *NW 

ALRTCN* 1 .2 )«WAF0R0(NN* 3*N) 

ALRT(N*2*2)*WAF0RG<NN*2 ) 

ALRT(N*3*2 )*WAF0RD(NN. I .N) 

415 CONTINUE 
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GO TO (420«421 > , 1 

420 CALL SUPCC <NW* ALRTtVECRT) 

GO TO 422 

421 CALL SuRCL (NV. AlRT*VECRT ) 

422 CONTINUE 

WRITE (10> < IVECRT (N,N3 ) .N=l ,NL1 ) .N3»l *3 ) 
WRITE (10) ( ( ALRT (N*N3« 2 ) *N= 1 «NW) *N3 k1 ♦ 3 > 

425 CONTINUE 
430 CONTINUE 

NLl »NWAF-l 
DO 470 1 «1 ,2 
DO 435 N*=l fNWAF 

SETUP 1ST LINE IN SPANWISE DIRECTION 

ALRT ( N * 1 • 2 ) » WAFORO ( N , 3 . 1 ) 

ALRT(N»2«2 >-WAFORG(Ni2) 

ALRT(N*3*2 >«WAF0RD (N, I • 1 ) 

435 CONTINUE 

WRITE (10) ( (ALRT(N»N3t2)*N*l ,NWAF),N3*1 O) 
DO 460 NN«2*NW 
DO 440 N* 1 tNWAF 
DO 440 N3«l *3 
ALRT(N*N3.1 >=ALRT(N*N3*2) 

440 CONTINUE 

DO 445 N«1 *NWAF 
ALRT (N* 1 *2 >swAFORD(N» 3« NN > 

ALRT (N« 2«2 ) *WAF0RG(N » 2 ) 

ALRT ( N * 3 , 2 ) «WAFORD ( N . I . NN ) 

445 CONTINUE 

GO TO (450*451 ) • I 

450 CALL SURCL (NWAF *ALRT*VECRT > 

GO TO 452 

451 CALL SURCC (NWAF ,ALRT*VECRT ) 

452 CONTINUE 

WRITE (10) ( (VECRT(N,N3 ) iN«l *NL1 ) *N3*1 ,3 ) 

WRITE (10) ( (ALRT(NtN3.2) *N«1 ♦NWAF) *N3*1 *3) 

460 CONTINUE 
470 CONTINUE 

IF ( J1 .EQ.E ) GO TO 46 

45 WRITE (9) SLOCK 
READ (12) DUM 

C 

C FUSELAGE 

C 

46 IF(J2«NE*2) GO TO 47 
READ (12) BLOCK 

WRITE (9) Block 
GO TO 315 

47 IF (J2.EO.O) GO TO 68 
J2TEST-3 

1E( J2*E0«-1 *AN0. J6*EO« - 1 ) J2 TEST* I 
IF< J2*EQ*“1 •and# J6*EO»0 ) J2TEST*2 
IF ( J6.E0. 1 ) J2tEST=1 
J2*I 

DO 67 NFU*1*NFUS 
NRAD-NRADX (NFU > 

NFUSOR-NFORX (NFU > 

N-NFUSOR 
NREC* (N-»-9)/l 0 
I 1 *-9 
12*0 

DO 48 N1 *1 *NREC 
READ (5*1) A0CD 
WRITE (6*2) ABCO 
11 * 11+10 
12*12+10 

DECODE (70*4*ABCD) ( XFUS ( 1 ,NFU > * I * I 1 • I 2 ) 

48 CONTINUE 

IF ( J2TEST.NE.2 ) GO TO 50 
1 1 *-9 
12*0 

DO 49 N1 *1 *NREC 
READ (5*1) ABCO 
WRITE (6*2> ABCO 
11 * 11+10 
12*12+10 

DECODE (70 *4, ABCO) ( ZFUS ( I «NFU ) * I * I I i 1 2 1 

49 CONTINUE 
GO TO 52 

50 DO 51 1*1 «N 

51 ZFUS( 1 *NFU)*0. 

52 IF ( J2TEST.NE.3 1 GO TO 60 
NCARO* (NRAD+9)/tO 

DO 56 LN* 1 *N 
00 55 K*l *2 
KK«K+ (NFU- I ) *2 
11*10 


15 



o o u 


I!*-9 
I 2*0 

00 54 NN*l»NCAR0 

IF <NN«EO*NCARO ) I I *M0D CNR AD • t O > 

IF <IUE0*0> !I*10 
1 1*11+10 
12-12+1 I 

READ <5«n ABCD 
WRITE <6«2J ABCD 

DECODE <70 *4 » ABCO ) ( SFUS ( I *LN*KK ) « I « I 1 t I 2 ) 

54 CONTINUE 

55 CONTINUE 

56 CONTINUE 
GO TO 67 

60 I 1 —9 
12*0 

DO 62 N1 * 1 *NREC 
READ <5*1 > ABCO 
WRITE (6«2) ABCD 
1 1*11+10 
12*12+10 

DECODE <70 *4* ABCO) ( FUSARD < I « NFU > ♦ 1 * 1 I » I 2 ) 

62 CONTINUE 

DO 64 I *1 «N 

64 FUSRADC I *NFU ) “SORT ( FUSARO ( T •NFU)/PI ) 

67 CONTINUE 

FUSELAGE MtN AND MAX 

315 IF CJl.NE.O) GO TO 320 
XMIN*XFUS< I « 1 ) 

XMAX*XFUS( I « I ) 

IF ( J2TEST.E0.3 >G0 TO 317 
VMAX-FUSRAOC 1 t 1 > 

ZM1N*-FUSRA0 <1*1 > + ZFUS ( 1 • 1 ) 

ZMAX*FUSRAD ( I t 1 )+2FUS ( I t 1 ) 

GO TO 320 

317 YMAX*SFUS< 1 • I f I ) 

ZMlN«SFUS< 1 * 1 <2 ) 

ZMAX*SFUS( I *1.2) 

320 DO 330 N-1 »NFUS 
NRAD«NRADX (N ) 

NFUSOR-NFORX <N> 

XMIN-AMINI <XMIN,XFUS< 1 .N> > 

XMAX-AMAxI (XMAX.XFUSCNFUSOR.N) ) 

DO 328 NN-lfNFUSOR 

IF ( J2TEST*EQ*3 ) GO +0 322 

YMAX*AMAX1 (YMAX<FUSRAD(NN*N> > 

ZMAX*AMAX1 (Z«AX,FUSRAD(NN,N)+ZFUS(NN,N) ) 
ZMIN*AmIN1 {ZMIN,-FUSRAD<NN.N>+ZFUS(NN,N> ) 

GO TO 328 
322 KK*1 +<N-1 )*2 

DO 325 NR»l*NRAD 

YMAX*AMAX 1 < YMAX , SFUS ( NR » NN * KK > ) 

ZMIN-AMINI (ZMIN,SFUS<NR,NN»KK+I ) ) 

325 ZMAX«AMAX1 < ZMAX • SFUS ( NR » NN* KK+ 1 > > 

328 CONTINUE 
330 CONTINUE 

C WRITE PLOT tape 

C 

C SETUP 1ST LINE IN STREAMWISE DIRECTION 

C 

DO 496 NFU*1*NFUS 
NRAD-NRADX <NFU ) 
nfusoh*nforx (NFU) 

NLl -NFUSOR-1 
nan-nrad 

IF (J2TEST*EQ.3 ) GO TO 481 

FANG* (NRAD-I )*2 

DELE*6 • 2831 853/FANG 

DO 480 N“l«NAN 

E*N-1 

ANSIN(N>*S1N CE*DELE+4.712389> 

480 ANCOSCN )-C0S(E*DELE+4*7123a9) 

481 CONTINUE 
KK»l+<NFU-l )*2 

DO 484 N*l iNFUSOR 
ALRT (N. I *2 )«XFUSCN,NFU) 

IF (J2TEST.EQ.3 ) GO TO 482 

ALRT ( N • 2 * 2 ) *FUSRAO ( N • NF U > +ANCOS ( 1 ) 

ALRT <N* 3*2 )*FUSRAD (N*NFU)*ANS IN ( 1 ) +ZFuS (N • NFU ) 
GO TO 483 

482 ALRT<N«2.2 )“SFUS(1 «N,KK ) 

ALRT <N, 3*2 )*SFUS< 1 *N,KK+1 > 

483 CONTINUE 

484 CONTINUE 

WRITE CIO) ( ( ALRT (N *N3* 2 ) *N* I *NFUSOR I *N3*1 * 3 ) 
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00 495 NNs 2*NAN 
00 488 N«t*NFUS0« 

00 488 N3«I *3 

ALRT CN#N3f I ) »ALRT(N.N3* 2) 

488 continue 

DO 492 N*l*NFUSOR 

IF C J2TEST*E0«3 > GO TO 490 

ALRT<N*a*a >»FUSrAD (N*NFU)4ANC0S(NN) 

ALRT <N. 3 ,2 )*FUSrAO(N,NFU )*ANS IN (NN) -fZFUS <N*NFU » 
GO TO 491 

490 At_RT(N*2,2 )*SFUS<NN*N*KK ) 

ALRT(N.3«2 )«SFU5 (NN*N.KK+1 > 

491 CONTINUE 

492 CONTINUE 

CALL SURCL (NFUSOR* ALRT f VECRT > 

WRITE (10) ( (VECRT(N,N3 ) »N=1 *NLl ) *N3=1 *3) 

WRITE (10) ( ( ALRT (N*N3 ♦ 2> *N=1 ,NFUSOR) ♦N3«t *3 ) 

495 CONTINUE 

496 CONTINUE 
C 

C SETUP 1ST LINE AROUND BODY 

C 

DO 51 I NFU»1 fNFuS 
NRADsNRADX (NFU ) 

NFUS0R»NF0RX (NFU > 

NAN>NRAD 
NUl =NAN“1 

IF { J2TEST«E0.3 > GO TO 494 
FANG=(NRA0-1 >*2 
DELE«6*2831853/FANG 
DO 493 N*1 *NAN 
E*N-l 

ANSiNtN )*S1N{E#0ELE+4«712389 > 

493 ANCOSfN >«C0S (E*DELE + 4 • 7 1 2389 ) 

494 CONTINUE 

KK»1 +(NFU-1 >42 
DO 499 N»1»NAN 
ALRT(N* 1 »2 )=XFUS( 1 «NFU) 

IF ( J2TEST*EO*3 1 GO TO 497 
ALRT(N«2«2>»FUSrAD( 1 » NFU) *ANCOS (N ) 

ALRT<N.3,2 >=FUSRAD( 1 *NFU)4ANS I N (N ) + ZFuS < 1 * NFU 1 
60 TO 498 

497 ALRT (N,2*2 )»SFUS (N4 1 *KK ) 

ALRT <N« 3,2 )*SFUC <N* 1 iKK + 1 > 


C 

C 

C 


498 CONTINUE 

499 CONTINUE 

WRITE (10) < (ALRT(N«N3«2) «N>t «NAN) «N3>1 «3 ) 

00 510 NN=2*NFUS0R 
00 502 N*1<NAN 
00 502 N3«l *3 
ALRT(N.N3fl ) *ALRT (N • N3 » 2 ) 

502 CONTINUE 

DO 508 Nsl *NAN 

ALRT<N* 1 f 2 )aXFUS<NN*NFU ) 

IF ( J2TEST.EQ.3 > GO TO 504 

ALRT (N* 2 ,2 )=FUSRAO (NN«NFU )*ANC0S(N) 

ALRT (N*3*2 )*FUSRA0(NN»NFU)*ANS1N(N)+ZFUS(NN,NFU) 
GO TO 505 

504 ALRT<N*2.2 )»SFUS (N,NN*KK) 

ALRT<N*3»2 )»SFUS«N*NN4KK+1 ) 

505 CONTINUE 
508 continue 

CALL SURCC (NAN* ALRT*VECRT) 

WRITE (10) < <VECRT(N,N31 *Nb1 *NL1 )*N3*1 *3) 

WRITE (10) < (ALRT(N«N3«2 ) «N=1 «NAN) *N3»t *3 ) 

510 CONTINUE 

511 CONTINUE 

IF (J2.E0./7 ) GO TO 70 
68 WRITE (9) BLOCK 
READ (12) OUM 


nacelles 

70 IF (J3.NE.2) GO TO 72 
READ (12) BLOCK 
WRITE (9) BLOCK 
GO TO 342 

72 IF (J3*EQ.0) GO TO 79 
N«NPOOOR 
NREC*(N+9)/10 
DO 78 NN» I «NP 
READ (5*1) ABCO 
WRITE (6*2) ABCD 

DECODE (21*4*A8C0) ( PODORG t NN * I ) * I * I *3 ) 

I l*-9 

I2»0 

DO 74 N1»1«NREC 
READ (5*1) A0CD 
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WRITE ( 6 « 2 ) ABCn 

I 1-UTlO 
12-I2+10 

DECODE ( 70 * 4 *ABCD> < XPOO ( NN t I ) • I * 1 1 ♦ 1 2 ) 

74 CONTINUE 

I I «-9 
I2«0 

00 76 N 1 *I *NREC 
READ ( 5 *n ABCD 
WRITE ( 6 * 2 ) ABCD 

1 I«I 1>10 
12«I2+10 

DECODE ( 70 , 4 ♦ABCD) (PODORO (NN# I ) • I I • 12 ) 

76 CONTINUE 
76 CONTINUE 
C 

C COMPUTE ACTUAL X, M I NIMUM ,MAXl MUM 

C 

342 OO 343 N« 1 *NP 

DO 343 NN»lfNPODOR 

343 XPODt (N*NN >*XP 0 D(N,NN )+POOORG (N . 1 ) 

IF < J 1 •NE.O^OR* J 2 ,NE. 0 ) GO TO 345 
XMIN«XP 001 ( 1 * 1 ) 

XMAX-XPOOl ( 1 ,NP 0 O 0 R) 

YMAX*P 000 RG ( 1*2 >+POOORO ( 1 * 1 ) 

ZM I N»POOORG ( 1 , 3 ) -PODORO ( 1 , 1 ) 

ZMAX«PODORG ( 1 * 3 ) +P 0 D 0 P 0 (1 * 1 > 

345 DO 350 N» 1 *NP 

XM INsAMINI (XMIN ,XPODl < N, I ) ) 

XMAX»AMAX 1 (XMAX.XPODl (N*NPODOR) ) 

DO 346 NN«l»NP 0 DOR 

YMAX*AMAX 1 (VMAX,PODORD (N,NN)+PODORG(N, 2 ) ) 
ZMIN^AMINI (ZMIN,P 000 RG (N, 3 )-POOORD(N,NN) ) 

348 ZMAX-AMAXI (ZMAX.PODORG (N, 3 )TP 000 RD(N,NN) ) 

350 CONTINUE 

NANGI«NAN 2+1 

FANG«NAN 2 

DELE» 6* 2831 853 /FANG 
OO 518 N- 1 *NANG 1 
E»N -1 

ANSIN(N)-SIN(E*DELE> 

518 ANC 0 S(N )*C 0 S(E* 0 ELE > 

WRITE Plot tape 
NL l «NPOOOR-t 

SETUP 1 ST line in STREAMWISE DIRECTION 

DO 540 NPI » 1 *NP 
OO 522 N«I*NPOOOR 

ALRT(N, 1 «2 )»XPOO(NPl , N ) +PODORG ( NP 1 , I ) 

ALRT (N* 2 * 2 )*P 0 D 0 RD(NP 1 *N)*ANCOS( I )+PODORG(NPl * 2 ) 
ALRT<N, 3 * 2 )*POOORO(NP 1 ,N)*ANS 1 N( 1 )+P 000 RG(NP 1 , 3 ) 
522 CONTINUE 

WRITE ( 10 ) ( (ALRT (N«N 3,2 > .N*! *NPODOR ) ,N 3 « 1 *3 ) 

DO 535 NN« 2 *NANG 1 
DO 525 N» 1 *NPODOR 
DO 525 N 3 *l *3 
ALRT(N,N 3 fl ) «ALRT (N ,N 3 • 2 > 

525 CONTINUE 

DO 530 N» 1 .NPODOP 

ALRT(N, 2 , 2 )*P 0 D 0 RD(NP 1 , N >#ANC 0 S (NN >+P 000 RG < NP ! , 2 ) 
ALRT (N, 3 * 2 loPODORDI NPI * N ) *ANS I N (NN ) +PODORG ( NP 1 *3 > 
530 CONTINUE 

CALL SuRCL(NPODOR*ALRT*VECRT) 

WRITE ( 10 » ( (VECRT (N*N 3 ) *N= 1 .NLl ) *N 3 * 1 *3 ) 

WRITE ( 10 ) ( (ALRT (N.N 3 . 2 ) ,N= I .NPODOR ) ,N 3 * 1 . 3 > 

535 CONTINUE 
540 CONTINUE 

SETUP 1 ST LINE AROUND PODS 

NLI-NANGI -1 
DO 555 NPlel*NP 
DO 542 N« 1 .NANG I 
M«N 

ALRT(M. I . 2 )«XPOD(NPl • 1 )+P 000 RG(NPl * 1 ) 
ALRT(M, 2 .a)«P 0 D 0 RD(NPl • 1 >*ANC 0 S <N )+PODORG (NPl . 2 ) 
ALRT (M. 3 . 2 )«P 0 D 0 RD( NPI , 1 ) »ANS I N (N )+POOORG (NPl .3 > 
542 CONTINUE 

WRITE 110 ) ( (ALRT (N.N 3 , 2 ) *N* 1 .NANGl ) *N 3 - 1 . 3 ) 

OO 550 NN- 2 .NPODOR 
DO 545 N«! .NANGl 
OO 545 N 3 *l *3 
ALRT<N.N 3 .I )»ALRT(N.N 3 . 2 ) 

545 CONTINUE 



o o o 


c 

C 

c 


DO 548 N»1 «NAN6l 
M«N 

ALRT I *2 )«XPOO<KfPl «NN >+-POOORG (h<Pl • 1 ) 

AlRT <M*2,2 >«P0D0R0(NP1 t NN ) ♦ANCOS ( N ) +PODORG ( NP I *2 ) 
ALRT (M*3*2)»P000RD(NP1 » NN ) *AMS I N (N ) +PODORG < NP I .3) 
548 CONTINUE 

call SURCC <NANGI » AlRT* VECRT I 

WRITE (10) ( (VEcRT(N,N3) *N«1 ,nLI )*N3»1 .3) 

WRITE (10) ( (AL9T(N*N3*a) *N»1 *NANGI ) ,N3«l *3> 

550 CONTINUE 
555 CONTINUE 

IF (J3.EQ.2) GO TO 80 
79 WRITE (9> Block 
READ (12) OUM 


FINS 

80 IF (J4*NE.a> GO TO 82 
READ (12) BLOCK 
WRITE (9> BLOCK 
GO TO 360 

82 IF (J4,EQ*0) GO TO 88 
N^NFINOR 
DO 85 NN=1 *NF 
read (5*1 ) ABCO 
WRITE (6*2) A0Cn 

DECODE (56*4*ABCD) ( < F I NORG ( NN . I * J ) * J» 1 * 4 ) • I = 1 * 2 ) 

READ (5*1) ABCD 
WRITE (6*2) ABCD 

DECODE (70*4, ABCD) ( XF I N ( NN « I ) * I c 1 « N ) 

READ (5*1) ABCD 
WRITE (6*2) ABCD 

DECODE (70, 4, ABCD) ( F I NORD ( NN < I * J ) * J« 1 , N ) 

85 CONTINUE 


CHANGE TO actual UNITS* COMPUTE MINIMUMS AND MAxIMUMS 

DO 225 LQ»l*NF 
DO 225 1»I *2 
J»3- I 

E^.Ol 4F1NORG <LQ, J*4 ) 

E2*FrNORG(LO. J*2) 

DO 220 K>1«NFIN0R 
EE »F I NORD ( LQ . 1 . K ) *E 
F INORD (LO* J*K ) ■f2+EE 
FINX2(L0* J*K)»E2-EE 

220 FINX3(LQ. J.K ) *F 1 NORG ( LO . J . 1 ) +E*XF 1 N ( LQ *K ) 

225 CONTINUE 
C 

360 IF ( J I • NE ■ O* OR* j2«NE »0*OP« J3 *NE • 0 )G0 TO 365 
XM1n«FINORG{ 1*1,1) 

XMAX*F1N0RG( 1,1,1) 

YMAX*F|N0RG< 1.1,2) 

2M I N=F I NORG (1,1,3) 

ZMAX»FIN0RG( 1,1,3) 

365 DO 370 N«l , NF 

ZM1N»AMIN1 (ZMIN,FlNORG(N* 1 *3> ) 

ZMAX«AMAX1 (2MAX,FInORG(N,2,3> ) 

DO 370 N2a I * 2 

XMIN»AMINI (XMIN,F1N0RG(N«N2* 1 >) 

XMAx*AmAX 1 rXMAx,FlNX3(N«N2«NFINOR > ) 

DO 370 NN*1*NFInOR 

YMAX-AMAXI (YMAX,FInORO(N,N2 *NN) > 

370 continue 
C 

c WRITE PLOT tape 

C 

NLl«NFINOR-l 

C 

C SETUP LOWER AND UPPER LINES IN STREAMWiSE DIRECTION 

DO 580 NF I ■ I ,NF 

DO 565 N2-1 *2 

DO 565 Na 1 , NF 1 NOR 

ALRT (N* 1 ,n2 ) -FI nX3(NF1 *N2,N ) 

ALRT(N,2,N2)*FINORO(NF1 *N2*N> 

ALRT(N*3*N2 )*FInORG (NF| *N2*3 ) 

565 CONTINUE 
C 

CALL SuRCL(NFtNOR*ALRT*VECRT) 

WRITE (10) ( (ALRT (N,N3, I ) ,N»1 .NFINOR) *N3»1 ,3 ) 

WRITE (10) ( (VECRT(N,N3),N-I ,NL1 ),N3-l,3) 

WRITE (10) ( (ALRT(N,N3,2) *N*1 ,NF1N0R) ,N3«1 *3) 

C 

C CHANGE Y FOR INSIDE LINES 


DO 570 N2-1 *2 
DO 570 N-1 .NFINOR 
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non 


ALRT C N * 2 * N2 ) »F ! NX2 ( NF J • N2 . N ) 

570 CONTINUE 
C 

CALL SuRCC(NFINO««ALRT*VECRT) 

WRITE <101 ( (ALPT<N*N3* I > »N»1 |NFIN0R)*N3*1 *3) 

WRITE <10) C C VEC^T <N »N3 ) *N* 1 *NL I ) *N3*1 »3 I 
WRITE <10) < (ALRTfN*N3« 2) *N*1 ♦NFINOR) *N3»l *3) 

580 CONTINUE 
C 

C SETUP LINES IN VERTICAL DIRECTION 

C 

DO 625 NFl «NF 
DO 620 NN2'l *2 
DO 588 N2* 1 «2 

ALRT(N2« I •2)»FInX3(NF1 .N2*1 i 
IF (NN2.EO*2) GO TO 582 
AlRT (N2 .2*2 > "FInORD (NF J *N2 . I ) 

GO TO 585 

582 ALRT<N2 .2 .2 )«FINX2(NFI .N2. 1 > 

585 CONTINUE 

ALRT (N2.3.2 1 *FIN0RG(NF1 *N2*3 ) 

588 CONTINUE 
C 

WRITE (10) ( ( ALRT <N.N3*2 ) *N* I *2 ) *N3* 1 * 3 ) 

C 

DO 610 NN»2*NF1nOR 
DO 590 N3*l • 3 
DO 590 N2»l *2 

ALRT(N2.N3»1 )*AlRT(N2.N3.2 ) 

590 CONTINUE 

DO 598 N2»l *2 

ALRT <N2* 1 *2 )*F INX3(NF1 *N2.NN) 

IF <NN2*E0«2) go to 592 

ALRT (N2 .2 .2 ) =FI NORD <NF1 *N2 • NN> 

GO TO 595 

592 ALRT(N2.2.2>»FINX2(NF1 .N2*NN> 

595 CONTINUE 

ALRT (N2.3.2 >»FInORG (NF! *N2 * 3 ) 

598 CONTINUE 
C 

GO TO <602.604) *NN2 
602 CALL SURCC < 2 ♦ AL»T . VECR T ) 

GO TO 605 

604 call SURCL <2.AlRT.VECRT) 

605 CONTI WE 

WRITE (10) < VECRT ( 1 .N3 ) .N3* I .3 ) 

WRITE <10) ( (ALRT(N2*N3.2 ) .N2»l .2) fN3«l *3) 

610 CONTINUE 
620 CONTINUE 
625 CONTINUE 

IF <J4«EQ*2) GO TO 90 
88 WRITE (9) block 
READ <12) DUM 
C 

c canards 

c 

90 IF (J5.NE.2) GO TO 94 
NCAN0R»IABS (NCANOR) 

NC«NCANOR 
READ <12) BLOCK 
WRITE <9) block 
go to 375 

94 IF (J5.E0.0) GO TO 99 
N« IABS(NCANOR ) 

DO 98 NN-l.NCAN 
READ (5.1) ABCO 
WRITE (6*2) ABCD 

DECODE <56.4*ABCD) ( (CANORG (NN* I • J ) * U*1 .4 ) * I • 1 *2 ) 

READ <S.1)ABCD 
WRITE <6*2 ) ABCD 

DECODE I70*4«ABCD) (XCANINN* I ) • 1 «1 *N ) 

READ (5*1) ABCD 
WRITE <6*2 ) ABCD 

DECODE (70*4.ABCD) ( CANORO C W . 1 ♦ J ) * *N ) 

IF <NCANOR*LT.O > GO TO 97 
DO 96 J*I *N 

96 CANORl <NN* 1 * J)«CAN0RD(NN. I * J) 

GO TO 98 

97 READ <5* I ) ABCD 
WRITE (6*2) ABCO 

DECODE (70*4. ABCO) ( CANOR I ( NN • I ♦ J ) * J« I • N ) 

98 CONTINUE 

NC anor« I ABS < ncanor ) 
nc*ncanor 

change TO ACTUAL UNITS* COMPUTE MINI MUMS AND MAXIMUMS 
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DO 250 NN«1*NCAN 



non 


DO 245 K«1 *2 
I»3-K 

E = *01*CANO«G (NN , I *4 > 

E3=CAN0RG (NN • I . 3 ) 

00 240 J»l*NCAN0« 

CANORD{NN, I • J > *E*CANOP0 ( NM * 1 • J )+E3 
CANOPl <NNi I * J)=-E*CAN0R1 (NN» I « J ) +E3 
240 CANORXtNN, t , J) =CANO«G (NN* I « I ) -fe*XC AN ( NN* J ) 

245 CONTINUE 
250 Continue 

375 IF ( J1 *NE ■ 0 • OR* J2« NE •0«OR* J3 *NE • 0*0ft* J4* NE«0 ) GO TO 377 
XM I N=CANORX (1*1,1 J 
XMAX = CANORX (1*1 ,NCAN0R > 

YMAx»CANORG (1*2*2) 

ZMIN-CANORl ( t * I « 1 ) 

2MAX=CAN0RD (1,1,1 ) 

377 DO 390 NCA*1*NCAN 

YMAX«AmAx1 <YMAX,CAN0RG(NCA,2,2 ) ) 

00 3S0 N2*l ,2 

XMIN»Am1N| (XHIN,CAN0RX(NCA*N2, I ) ) 

XMAX*AMAX1 (XMAX*CANORX (NCA*N2,NCAN0R) » 

DO 385 NN»1 *NCAnOR 

ZMIN^AmINI <ZMIN,CAN0R1 (NCA*N2,NN) > 

385 ZMAX*AMAX1 ( 2MAX * CAnORO ( NCA , N2 ,NN ) > 

388 CONTINUE 
390 CONTINUE 
C 

C WRITE Pi_OT tape 

C 

NL1«NC-1 

C 

C SETUP TWO LINES IN STREAMWISE DIRECTION FOR UPPER AND LOWER 

DO 642 NCA=1,NCAN 
DO 640 1*1*2 
DO 635 N2=l ,2 
DO 635 N=l *NC 

ALRT(N* 1 *N2 )»CAnORX(NCA ,N2*N) 

ALRT(N*2*N2 ) *CAn0RG(NCA *N2*2 ) 

IF ( I .EQ*2 ) GO TO 632 

ALRT (N*3*n2)-CAN0RD(NCA •N2,N) 

GO TO 635 

632 ALRTCN*3*N2 )*CAnORI (NCA *N2*N) 

635 CONTINUE 

GO TO (637,638) , 1 

637 CALL SURCC (NC * ALRT • VECRT ) 

GO TO 639 

638 CALL SURCL ( NC * ALRT , VECRT ) 

639 CONTINUE 

WRITE (10) ( (ALRT <N*N3, 1 ) ,N*1 *NC ) ,N3*1 *3 ) 

WRITE (10) { (VECRT(N,N3) *N«1 *NL1 ) *N3*1 *3) 

WRITE (10) < (ALPT (N*N3« 21 *N*1 ,NC ) ,N3>1 *3 ) 

640 CONTINUE 

642 CONTINUE 

SETUP lines in SPANWISE DIRECTION 

DO 665 NCA»1*NCAN 
DO 660 I-! ,2 
DO 648 N2*l ,2 

ALRT(N2*1 ,2 ) *CAnORX<NCA «N2, I ) 

ALRT(N2*2 ,2 ) «CAnORG(NCA,N2*2 ) 

IF (I. £0*2) GO TO 643 

ALRT (N2* 3, 2 ) -CAnORO (NCA *N2 , I ) 

GO TO 648 

643 ALRT (N2, 3, 2 )-CAnORI (NCA*N2, 1 ) 

648 CONTINUE 

WRITE (10) ( (ALRT(N2*N3*2) ,N2*1 *2) iN3«l *3) 

DO 659 NN*2*NC 
DO 650 N3-1 *3 
DO 650 N2-1 ,2 

ALRT(N2*N3*1 )-AlRT(N2*N3*2 ) 

650 CONTINUE 

DO 654 N2-1 ,2 

ALRT(N2* 1 *2 )-CAnORX(NCA ,N2,NN) 

ALRT(N2*2*2 )-CAN0R6(NCA »N2»2 ) 

IF (l.eO.2) GO TO 652 

AlRT (N2 « 3 « 2 ) -C AnORD ( NCA * N2 « NN ) 

GO TO 654 

652 ALRT (N2* 3*2 1-CAnORI (NCA,N2,NN) 

654 CONTINUE 

GO TO (656,657) , I 

656 CALL SURCL < 2 , ALRT ♦ VECRT ) 

GO TO 658 

657 call SURCC ( 2 , AlRT * VECRT ) 

658 CONTINUE 

WRITE (10) ( VECRT ( 1 *N3 ) *N3>1 ,3 ) 

WRITE (10) { (ALRT (N2,N3*2 ) *N2-I *2 ) ,N3*1 *3) 
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659 CONTINUE 

660 CONTINUE 
666 CONTINUE 

IF (J5.E0.2) GO TO 105 
99 WRITE (9> BLOCK 
READ tl2) DUM 
106 REWIND 9 
REWIND 12 
READ <91 REFA 
WRITE (12) REFA 
DO 700 K*1 «5 
READ (9) BLOCK 
700 WRITE (12) block 

FIND maximum DISTANCE AND MIDPOINT 

ymin**ymax 

XDl S-XMAX-XMIN 
YDIS»VMAX-VMIN 
ZOIS-ZMAX-ZMIN 
BIGD«AMAX1 (XDtS«YDIS«ZDIS) 

XM 10»»5* (XMAX-XMl N)+XM1 N 
YMID«0« 

ZMID».5* (ZMAX-ZMIN)+ZMIN 
RETURN 
C 

C END OF START 

C 

END 
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Subroutines SURCL and SURCC 

Subroutine SURCL computes the outward normal vectors with four adjoining input 
points used in a clockwise direction and subroutine SURCC computes the outward normal 
vectors with four adjoining input points used in a counterclockwise direction. Although 
the input points are numbered in a counterclockwise direction, if computing the normals 
with Subroutine SURCC would yield inward normals, Subroutine SURCL is used. The flow 
charts and the FORTRAN statements for these subroutines are as follows: 



SUBROUTINE SURCL f f^T • FL I NE . FVEC) 

C 

c COMPUTES SURFACE UNIT NORMALS 

C 

DIMENSION FLI NE (31 * 3,2 > .FVEC(30»3) 
C 
C 

DO 50 N*2,NPT 

T1X»FLINE<M, 1 •2)-FLINE(N-1 * 1 • 1 ) 
T2X-FL1NE (N-1 ,1,2 1-FLINE (N, 1,1) 

Tl Y*FLINE(N,2,2)-FLINE(N-1 ,2,1 > 
T2Y=FLINEtN-l , 2 ,2 ) -FL ! NE < N, 2 , 1 ) 

T I Z=FL I NE ( N , 3 , 2 ) -FL I NE ( N- 1 , 3 • 1 ) 

T2Z=FLINE (N-1 , 3 , 2 ) -Fl I NE ( N , 3 , 1 > 

XNX=T2Y*TIZ-Tl Y*T2Z 

YNY»T1X*T2Z-T2x*T1 Z 

ZNZ»T2X#T 1 V-Tl X*T2V 

FN*S0RT < XNX»*2+ yNY**2 + ZNZ*»2 ) 

IF (FN,EQ.0,) go TO 40 
Fvec (N-l , 1 )aXNX/FN 
FVEC (N- 1 ,2 ) sYNY/FN 
FVEC (N-l ,3)=ZNZ/FN 
GO TO SO 

40 FVEC {N-l • 1 )«0, 

FVEC (N-l ,2 )*0. 

FVEC (N-l ,3 )*0. 

50 CONTINUE 
RETURN 
C 

C END OF SURCL 

C 

END 


C 

c 

c 

c 

c 


c 

c 

c 


SUBROUTINE SURCC ( NPT , FL I NE, FVEC ) 
COMPUTES SURFACE UNIT NORMALS 
DIMENSION FLINE (31 ,3,2 > , FVEC (30,3) 


DO 50 N«2,NPT 

TIX-FLINE(N, 1 ,2i-FLlN£(N-l ,1.1) 
T2X«FL INE (N, 1 , 1 )-FL INE <N-1 ,1,2) 
T1 Y*FL I NE (N,2, 2 )-FL iNE (N-l ,2,1) 
T2Y^FL INE (N,2, I > -Fl INE (N- l ,2 ,2 > 
T1Z*FLINE(N,3,2 )-FlINE(N- 1 ,3,1 ) 
T2Z*FLINE (N,3, I )-FL1NE(N-I ,3,2 ) 
XNX»T2Y#T12-T1 y*T2Z 
YNY-T1X4T2Z-T2X*T1Z 
ZNZ-T2X*TI Y-Tl X*T2Y 
FN*S0RT (XNX**2+ YNV#*2+2NZ**2 ) 

IF <FN,EQ#0* ) GO TO 40 
FVEC (N-l • 1 )»XNX/FN 
FVEC (N-l ,2 I^YNY/FN 
FVEC(N-1 ,3)»ZNZ/FN 
GO TO 50 

40 FVEC (N-l , 1 )*0. 

FVEC(N-1 ,2)*0. 

FVEC (N-l ,3 )*0, 

50 CONTINUE 
RETURN 

END OF SURCC 

END 
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Program PLTCON 

Program PLTCON (overlay (2,0)) is the control routine for the various plot options 
and calls in the other needed parts of the program. This program generates instructions 
for the plot titles and origin. The flow chart and the FORTRAN statements for this pro- 
gram are as follows: 
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overlay (cec«2*o> 

PROGRAM PLTCON 

C 

C CONTROL rout I FOR VARIOUS TYPES OF PLOTS 

C OF AN AIRCRAFT CONFIGURATION 

C 

COMMON ABC (8 > . JO ♦ J 1 « J2 » J3 1 J4 ♦ J5 * J6 * 
lNwAF.NWAF0RfNFUS*NRADX(4 ) *NFORX (4 ) «NP«NPOOOR* 

2NF « NF I NOR « NCAN • nC ANOR « 

3J2TEST*NW,NCt 

4ABCOE(8 ) «MORZ, VERT* TESTl * PH 1 , THETA* PS 1 • XF • YF ♦ 2F* D I ST « FM AG * 
5PL0TSZ « TYPE « KOOE « 

6XMIN,XMAX* YMIN*YMAX»2M [N.ZMAX* 

7XMIO« YMID*ZM IO»pIGD* ISP 
C 

DIMENSION ORG<3) 

DATA TYPEO/3HORT/ . T YPEP/3HPER/ . TYPES/3HSTE/ 

1 *TYPEV/3HVU3/ 

C 

CBC»^3LCBC 

recall »6HRECALL 

REWIND 10 
C 

C SAVE MlN AND MAX 

C 

XSAV-XMIN 

YSAV-YMIN 

ZSAV*ZMIN 

XMSAV’XMAX 

YMSAV*YMAX 

ZMSAV*2MAX 

IF (TYPE*NE*TYPEV ) GO TO 49 

SCALE-a IGD/PLOTS2 

ORG( I lePHI 

ORG (2) “THETA 

ORG(3)«PS I 

PHI»THETA*PSI «0. 

YBIG»0RG ( 1 ) 

YORG»FlOAT< IF1X(YMAX/SCALE ) )+ORG< 1 ) 

IF <YBIG*GT*0RG(2 ) )GO TO 3 
YBIG«ORG <2 > 

Y0RG»FL0A T ( I F 1 X ( ZM AX/SC ALE ) >+ORG ( 2 ) 

5 IF (YBIG.GT.ORG <3 ) )GO TO 8 
YBIG-ORG (3 ) 

YORG*FlOAT( IF 1X(2MAX/SCALE ) >+ORGf3> 

8 CALL CALPLTfO, , Y0RG*-3) 

C 

C NOTATE ON 3vIEW PLOTS 

C 

NCHAR«1FIX<6**Pl0TS2) 

IF (NCHAR.GT *80 ) GO TO 9 
X*0 . 

GO TO 10 

9 CONTINUE 

NDiFs (NCHAR-80 )/2 
X*FL0AT <NDIF 1X6* 

NCHAP-80 

10 CALL NOTATE(X*0* * .2 *ABC*0. .NCHARl 
XMIN“YMIN=ZMIN*0. 

HORZ*l HX 
VERT*1HY 

YORG-ORGU )-YORG-l 
call CALPLTfO. t Y0RG*-3) 

CALL overlay (CBC *2* 1 *RECALL > 

REWIND 10 
VERT-1 HZ 

YORG«ORG(2 l-ORG ( 1 > 

CALL CALPLT(0* .yORG«-3) 

call overlay ccbc *2 1 1 .recall ) 

rewind 10 

HORZsIHY 

YORG»ORG(3)-ORG(2 ) 

YM in-float < IFIX I YSAV/SCALE > )»SCALE 
CALL CALPLT (O..YORG.-3) 

CALL overlay ( CBC • 2 • 1 . RECALL 1 
X = FL0AT < IFIX (PLOTSZ+6. > > 

Y*l .~0RG<3 ) 

GO TO 60 
49 CONTINUE 

IF (TYPE.EQ.TYPFS ) GO TO 52 

c 

c NOTATE ID ON PLOT 

C 

X = 0* 

NCHAR- IFIX ( I I #*PLOTSZ )+3 
!F <NCHAR,LE.80 ) GO TO 50 
ND IF* ( NCHAR-80 ) /2 
X=FL0AT(ND1F )/l 1 • 
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nchar«bo 

50 CALL NOTATE < X • 0 • • • I ♦ ABC *0 • * NCMAR ) 

CALL NOTATE ( X • - * 5 ♦ • 1 « ABCDE »0 • ♦ NCHAR ) 

52 CONTINUE 

CALL CALPlT (0*.2*«-3) 

IP (TYPE ,eOb TYP pP*OR« TYPE*E0* TYPES ) GO TO 5A 
C 

c ORTHOGRAPHIC 

C 

CALL overlay ( CBC « 2 f 1 t RECALL ) 

X«FLOAT( IFIX (PLOTSZ+2* ) ) 

Y*-2# 

GO TO 60 
54 lSP»t 

IF (TYPE. EO. TYPES ) ISP*2 
C 

C PERSPECTIVE OR STEREO 

C 

CALL OVERLAY { CBC • 2 * 2 • RECALL ) 

X-PL0TSZ42. 

IF (TYPE.EQ.TYPFS > X«X+PLOTS2 
Y«-2. 

C 

c END OF complete PLOT 

C 

60 CONTINUE 

CALL CALPLT (X.Y.-3) 

C 

c RESTORE MIN AND MAX 

C 

TO XMlN»XSAV 
VMIN»YSAV 
ZMIN-ZSAV 
XMAX«XMSAV 

ymax«ymsav 

ZMAX*ZMSAV 

RETURN 

C 

C ENO OF PLTCON 

C 

END 
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Program OTHPLT 


Program OTHPLT (overlay (2,1)) is the control routine for the orthographic pro- 
jections. It determines the specified axis system and paper plane, sets up the rotation 
matrix and the equation for transformation of the outward normal vectors, and estab- 
lishes the necessary offsets for placement of a plot. The flow chart and the FORTRAN 
statements for this program are as follows: 
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overlay <CBC*2*1) 

PROGRAM OTMPLT 
C 

C CONTROL ROUTINE FOR ORTHOGRAPHIC PROJECTIONS 

C 

C 

c 

COMMON ABC < 8 ) ♦ JO • J I • J2 • J3 • JA » J5 • J6 « 

INWAF ,NWAF0R«NFUS«NRADX ( 4 ) 4NF0RX<4 ) *NP*NPOOOR« 

2NFtNFI NOR.NCAN*NCANORf 
3J2TEST,NW,NC f 

4ABCDE(8) .HORZ.VERT.TESTI .PHI , THET A . PS I . XF , YF . ZF . O I ST *FMAG. 

5PL0TSZ « TYPE « KODF ♦ 

6XMIN.XMAX *YM IN . VM AX • ZM I N . ZM AX • 

7XMI0. YMlO.ZMlO.pI GO* I SP 
C 

DIMENSION A(2.3>.C(31 
C 

DATA XSEE/2MX /,YSEE/2HY /.ZSEE/2H2 /• 

IXINTST/3HOUT/.CONV/.017453293/.NUM2/2/.NAN2/24/ 

C 

C INITIALIZE 

C 

DMAX-BIGO 
ITESTl »l 
ITEST2*! 

IF (XINTST.NE.TESTI ) ITESTl-0 

IP (PS I .EQ.O. .And .THETA .EO.O* .AND. PHI .EQ.O* ) I TEST2*0 

SCALE*DMAX/PL0TSZ 

PHI *C0NV*PH1 

THETA»CONV*THETA 

PSl -CONVAPS I 

IP ( TYPE.EQ. 3HVu3 ) GO TO 12 
C 
C 

XDIS-XMAX-XMIN 
YDIS«YMAX-YMIN 
ZDIS-ZMAX-ZMIN 
XFlX««5* (OMAX-XDl S> 

XM in«xmin-xfix 

XMAX>XMAX4-XFIX 
YF I X« .5* ( DMAX- YD I S ) 
ymin*ymin-yfix 

YMAX>YMAX4-YF I X 
ZFIX-.54 lOMAX-ZnlSl 
ZMIN»ZMIN-ZFIX 
ZMAX»ZMAX^*2FIX 

ADJUST MINImUMS FOR GRID LINES 

XMIN*FL0AT ( IF I X<XM IN/SCALE ) ) *SCALE 
YMIN-FLOAT ( IFTx(YM1n/SCALE> )#SCALE 
ZMIN«FL0AT ( IF IXfZM IN/SCALE > 14SCALE 
12 CONTINUE 
C 

C SETUP AXIS 

C 

SINPS I»SIN(PS! > 

SINTHE*SIN(THETA 1 
SINPHI«SIN(PHI ) 

COSPSI»COS<PSI ) 

COSTHE»COS < THETA > 

COSPHI *COS (PHI ) 

2020 IF (XSEE.NE.HORZ) GO TO 2030 
C 

C USE X FOR horizontal VARIABLE 

C 

IF { I TEST2 .EQ.O ) GO TO 2025 
A ( 1 • 1 >*C0STHE*C0SPS I 

A(1.2)=-SINPSI *C0SPH1 +S I NTHE4C0SPS I*SI NPHI 
A< 1 .3)«SINPS1*5 INPHl+Sl NTHE*COSPS I *C0SPH 1 
2025 HM1N*XMIN 
HMAXaXMAX 
HM ID*XM 10 
IHORZ-l 
GO TO 2050 

2030 IF (YSEE.NE.H0R2> GO TO 2040 
C 

C USE Y FOR horizontal VARIABLE 

C 

IF ( ITEST2.EO.0 > GO TO 2035 
Al 1 .1 )*COSTME#SINPSI 

AM .2)*C0SPSI#C0SPHI+SINTHE*SINPSI*SINPHI 
A(1 ,3>--C0SPSI*SINPHI+SINTHE*SINPSI*C0SPHI 

2035 HMIN-YMIN 
HMAX=YMAX 
HMID«YM 10 
IHORZ-2 


28 



GO TO 2050 
C 

C USE Z FOR horizontal VARIABLE 

C 

2040 CONTINUE 

IF ( ITEST2.EO*0 ) GO TO 2045 
A( I .1 )»-SlNTHE 
A C I ,2 ) bC0STHE*SINPH1 
AM *3)-C0STHE*C0SPHI 
2045 HMIN-ZMIN 
HMAX«ZMAX 
HM ID«ZM ID 
1H0RZ*3 

2050 IF (XSEE*NE*VERT) GO TO 2060 
C 

C USE X FOR vertical VARIABLE 

C 

IF ( 1 TEST2*EQ.0 I GO TO 2055 
A (2,1 )»:COSTHE*COSPSI 

A (2,2 )=-S INPSI*COSPHl-»-S I NTHE*COSPS 1 *S I NPH I 
A(2,3 )»SI NPSI*S INPHH>SINTHE*COSPSI*COSPHl 
2055 VMIN=XMIN 
VMAX=XMAX 
VM1D«XMID 
1 VERT*1 
GO TO 2080 

2060 IF (YSEE.NE. VERT ) GO TO 2070 
C 

C USE Y FOR vertical VARIABLE 

C 

IF ( 1 TEST2.EO.O ) GO TO 2065 
A(2, 1 )*COSTHE*SINPSI 

A (2*2 > -COSPS I4COSPH 1 +S 1 NTHE*S I NPS I *S I NPH I 
A (2,3 >*“C0SPSI*SINPH1 +S INTHE*SINPSI*COSPHI 
2065 VMlN=YMlN 
VMAXeYMAX 
VMID*YM ID 
IVERT-2 
GO TO 2080 
C 

c use Z FOR vertical variable 

c 

2070 CONTINUE 

IF (lTEST2.E0.0l GO TO 2075 
A (2, 1 »*-S INTHE 
A(2,2)*C0STHE*S!NPHI 
A(2,3 )-COSTHE»COSPHI 
2075 VM1N=ZMIN 
VMAXaZMAX 
VM ID=ZMIO 
I VERT»3 
C 

C CHECK PAPER PLANE 

C 

2080 IF ( .NOT. ( ( 1 HORZ«EQ. 1 • AND. I VERT.EQ.2 ) .OR. 

I ( I VERT.EO. I , AND. 1 H0RZ.EQ.2 > M GO TO 2083 
1TEST=3 
C( I 1 =-S INTHE 
C ( 2 ) *COSTHE#S I NpH I 
C (3)«C0STHE*C0SPH1 
GO TO 2088 

2083 IF ( .NOT. ( ( IHORz*£Q. I . AND. 1 VERT.EQ.31 .OR. 

I ( IVERT.EQ. I .And. IHORZ.EQ. 3 I > )G0 TO 2086 
ITeST*2 

C( 1 )*C0STHE*SINPS1 

C (2 )eCOSPSl*COSPHI+SINTHE*S INPSI*SINPHI 
C( 3 )*-COSPSI*SInPHI+SINTHE*SINPS1»COSPHI 
GO TO 2088 
2086 ITEST-1 

C ( 1 ) *COSTHE*COSpS I 

C ( 2 ) I NPS I *COl^PH I +S I NTHE*COSPS I *S I NPH 1 

C ( 3 ) «S I NPS I *S r NPH I +S 1 NTHE*COSPS 1 *COSPH I 
2068 CONTINUE 
C 

C CENTER WITHIN PAGE SIZE IF SIZE GREATER THAN 28 INCHES 

C 

IF (PLOTSZ.GT.28* *AND. TYPE.NE.3HVU3 ) VM I N*- 1 3 .*SCALE 
l+FLOAT< IFIX(VMID/SCALE) )*SCALE 
C 

C rotate midpoint to PLACE ROTATED VIEW CORRECTLY 

C 

IF ( ITEST2.EQ.0 ) GO TO 2095 

AMID1=A( 1 , 1 )#XMID+A( 1 , 2 YM 1 0+A ( 1 ,3)#ZMID 
AM1D2=A (2, 1 )*XM1D+A(2,2)*YM1D+A(2.3)*ZMID 
HMlNeHMlN-HMlO-f AMIDl 
VMIN^VM IN-VMID+AM 102 
2095 CONTINUE 
C 
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BEGIN PLOTTING LINES 


C 
C 

C WING 

C 

2100 IF (Jt*EQ*0) GO TO 2200 
DO 2120 l«l *2 

call PLOTIT (NWAF,N«* ITEST. ITESTI . ITEST2* IHORZ. IVERT t 

IHM in*vmin*scale*a<c I 

2120 CONTINUE 

DO 2140 I«1 »2 

CALL PLOTIT <NW .NWAF , I T EST . I TEST 1 . I TEST2 * I HOR2 » I VERT » 

1 HM I N « VM 1 N • SCALE t A » C ) 

2140 CONTINUE 
C 

C FUSELAGE 

C 

2200 IF <J2.EO.O) GO TO 2300 
DO 2210 NFU«1*NFUS 
NANGl *NRAOX(NFU ) 

NFUSOR*NFORX < NFU > 

CALL PLOTIT < NANG 1 , NFUSOR . I TEST . I TEST 1 ♦ I TEST2 « I HORZ . I VERT ♦ 
lHMIN*VHINtSCALE«A«C ) 

2210 CONTINUE 

OO 2220 NFU«l*NFUS 
NANGl »NRADX( NFU ) 

NFUSOR-NFORX (NFU > 

CALL PLOTIT (NFUSOR tNANGl * I TEST . I TESTl ♦ I TEST2 i IHORZ « 1 VERT« 
IHM IN«VM1N « SCALE «A «C 1 
2220 CONTINUE 
C 

c nacelles 

c 

2300 IF (J3.EQ.0) GO TO 2400 
NANGl -NAN2+1 
00 2340 NP1*I .NP 

CALL PLOTIT (NAnG 1 . NPODOR . I TEST • I TEST I • I TEST2 . I HORZ • I VERT « 
1HM1N«VMIN«SCALE «A «C ) 

2340 CONTINUE 

OO 2360 NPl «1 *NP 

CALL PLOTIT ( NPODOR * NANGl • I TES T » I TEST 1 ♦ I TEST2 » I HORZ . I VERT » 

ihmin»vmin*scale»a,c » 

2360 CONTINUE 

FINS 

2400 IF (J4.EQ.0) GO TO 2*^00 
OO 2420 NF1»1*nF 

CALL PLOTIT ( NuM2 . NF I NOR . I TEST • I TEST 1 * I TEST2 » I HOR2 * I VERT • 
lHMlNtVMlN,SCALEtA.C > 

CALL PLOTIT ( NuM2 * NF I NOR . I TEST . I TEST 1 . I TEST2 . I HORZ « I VERT • 
lHMINtVMIN«SCALE«A tC ) 

2420 CONTINUE 

00 2440 NFl =1 ,nF 

CALL PLOTIT < NF I NOR . NUM2 • I TEST * I TEST I . I TEST2 . I HORZ * I VERT i 
IHMiNtVMINfSCALE «A «C) 

CALL PLOTIT { NF I NOR . NUM2 « 1 TEST . I TEST I . I TEST2 * I HORZ * I VERT » 
1HM1N*VMIN.SCALE .A *C ) 

2440 CONTINUE 
C 

c canard 

C 

2500 IF (J5.E0.0) GO TO 2600 
OO 2525 NCA*1*NCAN 
00 2520 I»1 *2 

call PLOTIT (2.NC. I TEST, ITESTl • ITEST2, IHORZ« 1 VERT* 

1 HM I N • VM I N « scale « A « C ) 

2520 CONTINUE 
2525 CONTINUE 

OO 2545 NCA»!*NCAN 
DO 2540 I -1 *2 

CALL PLOTIT ( NC • 2 * I TEST * 1 TE$T 1 « I TEST2 * I HORZ • I VERT • 
ihmin*vmin*scale ,A«C ) 

2540 CONTINUE 
2545 CONTINUE 
2600 CONTINUE 
RETURN 
C 

C ENO OF OTHPlT 

c 

ENO 



Subroutine PLOTIT 


Subroutine PLOTIT reads lines of points and associated vectors from intermediate 
storage and calls for transformation of the points and vectors. It writes instructions for 
driving automatic equipment to plot the desired orthographic lines. The flow chart and 
the FORTRAN statements for this subroutine are as follows: 



31 










o o n n 


SUBROUTINE PLOTIT , NL . NPT . 1 TEST . I TEST! . I TEST2. IHORZ. I VERT. 
IHMIN.VM IN * scale #A ,C) 

READS LINES OF POINTS DEFINING A SURFACE FROM TAPE » 

manipulates in specified manner, and plots 


c 

c 


c 


O ! MENS I ON 
lRVECOO.2 ) 


VECRT(30.3.2) .VECLF00.34 2>.ALINE(31 .3) .RLINEOl .2). 

. XL 1 NE ( 33 . 2 ) . NNUM (4).PLINE(31.2>.A<2.3)»C<3) 


NVEC-NPT-1 
DO 500 N»1 .NL 
IF <N*GT. 1 ) GO TO 10 
KOOE»3 
K1 »2 
K2*2 
GO TO 50 
10 KODE*l 
Kl»l 
K2«2 

DO 30 NV*I.NVEC 
DO 25 N3«l .3 

VECRT (NV.N3. I ) « VE<^R'T < ♦ N3 » 2 ) 

VECLF (NV .N3* 1 > » vECLF t NV . N3 . 2 ) 

25 CONTINUE 
30 CONTINUE 

50 READ (10) ( ( AL I NE <NN. N3 ) .NN* 1 .NPT I *N3=1 * 3 ) 

IF (N*NE.NL> GO TO 60 

KOOE-2 

K1 -1 

K2-1 

GO TO 70 

60 READ (10) ( ( VECRT (NN.N3 .2 ) .NN»1 iNVEC ) *N3*1 *3 > 

DO 65 NN»I.NVEC 

VECLF ( NN . I *2 ) *VFCWT < NN. 1.2) 

VECLF CNN .2. 2 )*-vECRT (NN .2*2 ) 

65 VECLF (NN . 3.2 )*VECRT (NN. 3.2 ) 


C LOOP FOR right AND LEFT SIDE OF AIRCRAFT 

C 

70 DO 490 NN2-I.2 

IF (NN2*EQ*l ) GO TO 00 
DO 75 NN»1 .NPT 
75 ALINE(NN.2 )«-AL INE (NN.2 ) 

80 IF ( ITESTl .EO* I 1 GO TO 290 
IF ( 1TEST2«E(5* I ) GO TO 200 
C 

C NO ROTATION OR VISIBILITY TEST 

C 

DO 110 NN*l.NPT 
XLINE(NN.1 )* aline (NN, IHORZ) 

110 XL INE(NN.2 )aALI NE (NN. I VERT ) 

GO TO 250 


c rotate but nO VISIBILITY TEST 

C 

200 CALL PTROT ( NPT , A . AL I NE .RU I NE ) 

DO 225 NNbI.NPT 

DO 225 N2«l .2 

XL I NE < NN « N2 ) *RL 1 NE ( NN . N 2 ) 

225 CONTINUE 
C 

c SCALE and Plot 

c 

250 XLINE(NPT>1 • 1 )»HMIN 
XLINEINPT-^I i2)*VMIN 
XL INE (NPT+2 • I ) *SCALE 
XL I NE ( NPTF2 ♦ 2 1 « scale 

CALL LINE (XLI NE ( 1 . I > .XI- J NE < I .2 > *NPT I I .0.0.0 > 
GO TO 490 

290 IF ( 1TEST2.EQ.1 ) GO TO 400 

C CHECK VISIBILITY BUT NO ROTATION 

C 

DO 310 NN»1 .NPT 

RLINECNN. I )*ALINE (NN. IHORZ > 

RLINE(NN.2)»ALInE (NN, I VERT > 

310 CONTINUE 

DO 340 NN*I.NVEC 

DO 330 N2*l .2 

IF (NN2.E0.2) GO TO 320 

RVEC (NN,N2 )*VECRT (NN, I TEST , N2 ) 

GO TO 330 

320 RVEC (NN.N2 )*VEClP" (NN, I TEST . N2 > 

330 CONTINUE 
340 CONTINUE 
GO TO 450 
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c 

c 

c 

400 


410 

420 

4 30 
C 
C 
C 

450 


452 

455 


457 

460 


C 

C 

c 


470 


460 

490 

500 


C 

C 

c 


rotate and check visibility 

CALL PTROT(NPT*A» ALlNE*RLlNE) 

IF (NN2«EQ*2) GO TO 420 
DO 410 N2»K1 «K2 

CALL VECROT ( NVEC • C . VECRT ( I • 1 ♦ N2 > • RVEC (1 ♦ N2 ) ) 
CONTINUE 
GO TO 450 
DO 430 N2=K1 «K2 

CALL VECROT (NVEC * C ♦ VECLF ( 1 . 1 , N2 ) .RVEC ( 1 *N2 > ) 
CONTINUE 

FIND VISIBLE LINES 

IF {ITEST.NE.2I GO TO 455 
DO 452 N2=K1 ,K2 
DO 452 M*l .NVEC 
RVEC (M.N2)=-RVEC (M,N2 ) 

CALL VISTST (KODE . NPT . NSET . NNUM .RL I NE .R VEC . PL I NE ) 

IF fITEST,NE«2> GO TO 460 

DO 457 N2«K1, K2 

DO 457 Mai. NVEC 

RVEC < M , N2 ) a-RVEC ( M , N2 ) 

CONT 1 NUE 

IF (NSET.EO.0l GO TO 490 
SCALE And Plot 
N1 T-0 

DO 480 N1 *1 .NSET 
NN*NNUM<N1 ) 

DO 470 NNl =l .NN 
NITaNlT+l 

XLINE(NN1 ♦ I )aPLINE {NIT. 1 ) 

XLINEINNI *2)aPLlNE(NIT.2> 

CONT I NUE 

XL INE (NN4-1 .1 )«Hm 1 N 
XL INE(NN+1 .2 )»VMl N 
XLINE(NN+2.1 ) = SCALE 
XLlNE(NN+2.2 )*SCALE 

CALL LINE (XL INE ( 1 . 1 ) .XL INE I 1 .2 ) .NN. 1 , 0.0.0 ) 

CONTINUE 

CONTINUE 

CONTINUE 

RETURN 

END OF PLOT IT 


END 
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Subroutines PTROT and VECROT 

Subroutine PTROT rotates and projects a line of space points, and subroutine 
VECROT transforms a set of outward normal vectors. The flow charts and the 
FORTRAN statements for these subroutines are as follows: 


Subroutine 

PTROT 

\ ^ Subroutine 

J VECROT ^ 

f 

f 

Rotate and 


Transform outward 

project a 
line of space 
points 


normal vectors for 
desired paper plane 

“1 

T 

Q RCrURN ^ 

RETURN J 


C 

c 

c 


c 

c 


SUBROUTINE PTROT ( NPT » A < AL 1 NE • RL I NE ) 

rotates and projects a set of 30 POINTS 
dimension A(2,31* aline (31*3) .RLlNEOl .2 > 


DO 10 N»l «NPT 
RLlNE(Ntl )»0* 
RUINE(N*2)»0. 

DO 5 1*1*2 
00 5 J*l *3 

5 RL INE (N* I 1 «RLINE <N» 1 )+A ( I 

10 CONTINUE 
RETURN 


J )*AL INE(N* J» 


end of PTROT 


END 


SUBROUTINE VECROT ( NVEC *C *FVEC • RVEC ) 
C 

C TRANSFORMS VECTORS 

C 

C 

D I MENS ION CO)* FVEC OO ♦ 3 ) *RVFC <30 ) 

C 

C 

00 40 N*1 *NVEC 
SUM*0* 

DO 20 NN*| *3 

20 SUM*SUM+C (NN )*FVEC (N*NN > 

40 RVEC <N) -SUM 
RETURN 
C 

C END OF VECROT 

C 

END 
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Subroutine VISTST 


Subroutine VISTST tests a line of points for visibility. The flow chart and the 
FORTRAN statements for this subroutine are as follows: 



35 







oo r» non 


SUBROUTINE VlSTST I K0D6 *NSET • NNUM *RL I NE * RVEC • PL I NE ) 

C 

c TESTS A LINE OF POINTS FOR VISIBILITY 

C 

01 MENS I ON NNUM (4)•RLI^^E(31•2> *RVEC ( 30 • 2 ) *PL I NE ( 31 « 2 ) 

C 

c 

NVEC*NPT-1 

NPLT»0 

NSET*0 

icount*o 

GO TO (5*10* 15) *K0DE 
5 Nl-t 
N2-2 
GO TO 20 
10 Nl*l 
N2*l 

GO TO 20 
15 Nl«2 
N?»2 

20 DO 75 N*lfNPT 

IF (N»EQ> 1 I GO TO 30 
IF (N*E0»NPT) GO TO 40 
00 25 NN*N1iN2 

IF < cRVEC ( N-1 « NN ) •GT.O • > *OR • (RVEC ( N«NN ) #GT»0* I ) GO TO 70 
25 CONTINUE 
GO TO 60 

30 DO 35 NN»Nl*N2 

IF (RVEC < 1 *NN) .GT ) GO TO 70 
35 CONTINUE 
GO TO 60 

40 OO 45 NN»N1«N2 

IF (RVEC (NVEC «NN ) #GT.O* » GO TO 70 
45 CONTINUE 

POINT NOT VISIBLE 

60 IF ( IC0UNT*LE. I ) GO TO 65 
NSET»NSET+1 
NNUMINSET )s icount 
65 I COUNT *0 
GO TO 75 

POINT IS VISIBLE 

70 NPLT*NPLT+1 

1 COUNT* ICOl >NT+1 
PL INEINPLT • I )«RlI NE (N» 1 ) 

PLINE(NPLT*2 )«Rl1NE(N*2 ) 

75 CONTINUE 

IF < ICOUNT.LE. 1 ) GO TO 65 
NSET-NSET+1 
NNUM(NSET )»IC0UnT 
85 RETURN 
C 

c END OF VlST<;T 

C 

END 
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gram 

ay (2,2)) is the c 
,N stat 




ouo uoo ouo 


c 

c 

c 


overlay <CBC*2*2) 
PROGRAM SPPLT 


C 

c 

c 

c 


CONTROL routine FOR PERSPECTIVE AND STEREO 


COMMON ABC (8 > t JO • JI ♦ J2 ♦ J3« JA *J5 *J6* 

1 NWAF *NWAF0R tNFUS « NR AOX ( 4 ) *NFORX (4 ) «NP #NPODOR • 
2NF • NF I NOR • NCAN « nC ANOR . 


3J2TEST.NW.NC* . ^ 

4ABCOE<8) iHORZ,VE«T*TESTI *PMI , THETA *PS1 * XF . YF , ZF • D 1 ST , FMAG « 

9PLOTSZ « TYPE « KODF » 

6XM1N*XMAX»YMIN»yMAX<ZMIN.ZMAX, 

7XM ID«YMID*ZN*0*BIGD«1SP 


D I MENS ION X|N1T(2).Y1NITI2)*ZINIT(2) 


DATA NAN2/24/ 


X INIT < I )»PHJ 
XINITC2 )»XF 
YINIT < I ) *THETA 
YIN1T(2 )*YF 
ZINITU >*PS I 
ZINIT<2 )-ZF 
CALL STERPT (XINIT* 


MNIT*ZINIT*0*1«0 1 3 *PLOTSZ • DI ST *FMAG ) 


LOOP FOR RIGHT AND LEFT FRAMES 


DO 99 !C*l « rSP 
REWIND 10 
NCI--IC 


10 

15 

20 


BEGIN PLOTTING LINES 
WING 

IF ( Jl .EQ.O ) GO TO 22 
DO 15 1*1*2 

CALL PLTl T3<NWAF*NW*PHI *THETA*PSI 
00 20 1*1*2 

call PLT I T3(NW*NWAF *PHI *THETA,PS I 


•XF»YF*ZF*PL0TSZ*DI ST*FMAG*NCI ) 

*xf*yf*zf*plotsz*dist*fmag*nci ) 


FUSELAGE 

22 IF (J2.EQ*0) GO TO 30 
DO 24 NFU*1*NFUS 
NANGl *NRADX (NFU > 

NFUS0R«NF0RX <NFU ) 

CALL PLT 1 T3 ( NANG I • NFUSOR * 

IPHI * THETA. PS I *XF* YF.ZF .PLOTSZ.DI ST *FMAG*NCI ) 
24 CONTINUE 

DO 26 NFU*1*NFUS 
NANG 1*NRADX( NFU J 

nfusor*nforx (NFLJ ) 

CALL PLT I T3t NFUSOR .NANGl * 
iPHl * THETA * PS I *XF* YF * ZF .PLOTSZ * DI ST *FMAG*NC I ) 
26 CONTINUE 
C 

C NACELLES 

C 

30 IF (J3«EO«0) GO TO 40 
NANGl «NAN2'i’l 
DO 34 NPl *l *NP 
CALL PLT 1 T3 < NANG 1 * NPODOR * 

I PHI • THETA, PS I *XF* YF.ZF * PLOTSZ *0 1ST .FMAG.NCl ) 
34 CONTINUE 

DO 36 NP 1 * 1 • NP 

CALL PLTIT3(NP0D0R*NANG1 • 

IPHI .THETA ,PS I *XF* YF , ZF .PLOTSZ.DI ST .FMAG.NCl ) 
36 CONTINUE 
C 

C FINS 

C 

40 IF (J4.EQ.0) GO TO 50 
DO 42 NFl *1 .NF 
call PLTIT3<2.NFIN0R. 

iPHl .THETA.PS I .XF. YF.ZF .PLOTSZ.DI ST .FMAG.NCl 1 
42 CALL PLT I T3( 2. NFl NOR. 

I PH I .THETA .PS I .XF. YF.ZF .PLOTSZ. Dl ST .FMAG.NCl ) 
DO 46 NFl * 1 .NF 
CALL PLTIT3(NFINOR.2. 

IPHI .THETA * PS 1 .XF. YF.ZF .PLOTSZ.DI ST .FMAG.NCl ) 
46 CALL PLTIT3 (NFInOR.2. 

IPHl .THETA , PS I .XF. YF.ZF .PLOTSZ.DI ST .FMAG.NC I ) 

C 

c canard 

c 

50 IF <J5.E0.0> GO TO 60 
DO 56 NCA«1.NCAn 



DO 54 I -1 ♦£ 

54 CALL PLTIT3(a»NC* 

IPHI , THETA* PS 1 *XF*YF4ZF ,PL0TSZ*DIST*FMAG«NC I ) 
56 CONTINUE 

DO 59 NCA» I « NCAn 
DO 56 1*1*2 

58 CALL PLT1T3<NC*2* 

IPHI ♦ THETA, PS I *XF, YF*ZF,PL0TSZ*DIST*FMAG*NCI > 

59 CONTINUE 

60 CONTINUE 
99 CONTINUE 

RETURN 

C 

C END OF SPPLT 

C 

END 


Subroutine PLTIT3 

Subroutine PLTIT3 reads lines of points from intermediate storage and calls sub- 
routine STERPT for the perspective and stereo views. The flow chart and the FORTRAN 
st 3 .teinents for this subroutine 3.re 3.S follows. 



SUBROUTINE PUT I T3 f NL,NPT .PH I .THETA . PS 1 .XF.VF.ZF, 
lPUOTSZ.OtST.FMAG. NCI ) 

reads UINES of POINTS DEFINING A SURFACE FROM TAPE 
AND PLOTS perspective VIEWS OR STEREO FRAMES 

DIMENSION ALINE (33.3) 

AU1NE(NPT+1 .1 )apHI 
ALINE(NPT+a.l >«XF 
AL I NE ( NPT<»- 1.2)* THET A 

ALlNE(NPT-t-2.2)»vF 

ALINE (MPT +1 .3 )*PSI 
AL I NE < NPT+2 . 3 > = ZF 
DO 500 N=1.NL 

READ t 1 0 > ( ( ALI NE I NN.N3 ) «NN= 1 *NPT ) .N3* 1 . 3 ) 

IF (N.EQ.NL) GO TO 70 


C 

c SKIP VECTORS 

C 

READ flOVEC 


C 

C 

c 


LOOP FOR RIGHT AND LEFT SIDE OF AIRCRAFT 


70 DO 490 NN2*l .2 

IF <NN2.E0*1 ) GO TO BO 
DO 75 NNa 1 .NPT 
75 AL1NE<NN.2)*“ALINE(NN.2> 

80 call STERPT (AL I nE < 1 . 1 > .aline < X .2 > 
1 3.PL0TSZ.DIST.FMAG) 

490 CONTINUE 
500 CONTINUE 
RETURN 


.aline ( I .3) .NPT I 


I .NCI . 


C 

C 

c 


END OF PLTIT3 


END 
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Subroutine STERPT 


By George C. Salley 
Langley Research Center 

Subroutine STERPT generates instructions for driving automatic equipment to plot 
the perspective projection of data for a given three-dimensional array. Two passes 
through this subroutine will generate instructions for a pair of stereo frames. The 
FORTRAN statements for this subroutine are as follows: 


SUBROUTINE STERPT ( X t Y « Z • N • K , NC * I P *PAG « PCA , XPR 1 
C 

C PROGRAMER - GEORGE C. SALLEY 

C 

DIMENSION VP(3)* TRANC3)» SANGO)* CANG(3)* ADJ(3)< PT(4)# XLP ( 2 > « 
1ZLP12 » 

DIMENSION XM). Y<1). 2(1) 

DIMENSION PLX(4h PLY ( 4 > ♦ PLZ(2) 

DIMENSION PIX(4)* PIY(4)« P1Z(2) 

DIMENSION lLP(4)t I PL ( 4 ) 

DATA PI «PI2,P1 32 »PI 42/3* 141 5926 ♦! • 5707963 * 4 • 7 1 23889 » 6 • 283 1 952/ 

DATA PAR/1 -125/ 

DATA NPG/0/ 
data NPT/1/ 

DATA FRAME/9.80/ 
data TuRN/1 1 *01/ 

NO»l 
KK = K 
I I e IP 

IF (NCI 00.5*110 

C * 

5 Np»t>^*K+l 

NR=NP+K 
PL 1 MePAG/2* 

SF=XPR 
VPU*PLA 
DO 10 1=1*4 
PLX ( I )=0. 

PLY( n =0. 

P I X ( I ) *0. 

PI Y( I >=0* 

IPL < I >-0 
10 lLP<n=0 

DO 15 1=1.2 
PLZ< I )»0. 

15 PIZ( I )»0« 

VPX«X (NP > 

VPY = Y (NP > 

VPZ=Z (NP ) 

FPX»X (NR ) 

FPY = Y (NR > 

FPZ«Z(NR ) 

VX*VPX-FPX 
VY= VPY-FPY 


41 


VZ»VP2-FPZ 

VP (2 > «SQRT ( ( VX**2 )+ ( VY**2 ) ) 

VP(3>»S0PT< <VZ*#2)+(VP(2)**2) ) 

TRAN( 1 )*VPX- CVPl* (VX/VP (2 ) ) ) 

TRAN < 2 > «VPY- ( VPL* ( V Y/VP ( 2 ) ) ) 

TRAN<3)-VP2- (VPL*<VZ/VP(3> ) ) 

VANG*ATAN ( (PAR/VP ( 3 > ) ) 

IF CVX) 55»20*3? 

20 IF tVYJ 30«300*25 

25 PANG*P12 

GO TO 75 
30 PANG»PI32 

GO TO 75 

35 IF (VV) 50*40*45 

40 PANG*0« 

GO TO 75 

45 PANG»ATAN ( < VY/VX > > 

GO TO 75 

50 PANG = PI42-ATAN( ( ( AB S I VY > ) /VX > ) 

GO TO 75 

55 IF (VY> 70*60*65 

60 PANG»PI 

GO TO 75 

65 PANG«P I“ATAN ( ( VV/ ( A8S (VX ) > ) ) 

GO TO 75 

70 PANG»PI+ATAN f ( < ABS(VY ) >/ (ABS<VX ) ) > » 

75 PANG«Pl 32-PANG 

UANG*PANG-VANG 
RANG*UANG+ <2-*VANG ) 

SANG( I )-SIN<UANG> 

SANG(2 J-SIN(RANG) 

GANG ( I ) «COS (UANG ) 

GANG ( 2 ) -COS ( RANG ) 

SANG ( 3 ) «VZ/VP ( 3 ) 

GANG (3 )«VP 12 >/VP < 3 ) 

VP<3 )*VPL 
XLP( I )*0. 

ZLPM )«0. 

XLP(2)«FRAME 
ZLP(2 )»0* 

AOJ( 1 >*PL1M 
A0J(2)«PLIM 
ADJ ( 3 ) « AO J < 2 ) +FPAME 
IF (N) 300*300*110 
80 M*IABS<NG) 

L-M 

IF (NPG+NC) 115*85*115 
85 IF (2+NC) 300*95*90 

90 NPG=2 

GO TO 100 
95 NPG»1 

100 GONTINUe 

DO 105 I »1 *L 

CALL CALPLT (TURN«0**-3> 

1 05 CONT I NUe 

CALL CALPLT (XLP ( M ) « ZLP (« > * 3 > 

GO TO 115 
110 M=l 

L=2 

115 DO 295 I«M*L 

IF (NPG) 300*120*150 
120 IF (NC) 125*145,145 

125 IF (NPT+NC) 150*130*150 

130 IF (2+NC) 300*140*135 

135 NPT«2 

GO TO 145 
140 NPTsl 

145 CONTINUE 

CALL CALPLT ( XLP ( I > * ZLP < I ) * 3 > 

150 DO 290 J*l *N 

PT ( 1 ) a ( (X (NO )-TRAN (111 *C ANG (I ) ) - ( ( Y (NO ) -*TRAN< 2 1 ) *SANG ( I ) ) 
PT (4 )a C (X(NO )-TRAN( 1 ) )»SANG (I ) >+ ( ( Y (NO 1 -TRAN < 2 ) )*CANG ( 1 1) 
PT(2>*( (PT (4 )*CANG( 3) J“( ( Z ( NO ) -TRAN ( 3 ) ) *SANG < 3 ) 1 ) 

PT ( 3 )« { (PT ( 4 )*S ANG ( 3 ) > + ( ( Z (NO >-TRAN ( 3 ) ) *CANG (3)1) 

IF (PT(2)> 155*180*160 

155 IF (ILP(1)> 300,160*175 

160 IF (II-3) 165*170*300 

165 VX-PLX ( I l-PT ( 1 ) 

VY«F>LY ( 1 1 -PT (2 > 

VZ*PLZ( I )-PT (3) 

VP(1 )«S0RT< (VX**2 >+(VY**2> ) 

VP (2 > *SORT ( ( VZ**2 >+ { VP < 1 > **2 > ) 

VPL-PLY ( 1 )/( VY/VP ( 1 ) ) 

PT(4)-PLX( I )-( (VX/VP{ 1 ) )*VPL> 

PLX ( I )-PT ( 1 > 

PT ( 1 )aPT (4 » 

PLY( I )*PT(2 ) 

PT (2 ) *0, 
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PT (4 ) *PLZ ( 1 I - ( ( VZ/VP (3 ) )»VPL ) 

PLZ( I )*PT<3 > 

PT (3 ) »PT (4 ) 

1LP( r )*1 
60 TO 205 
170 iLPd )■! 

1 75 PLX( 1 )«PT{ 1 ) 

PLY( I >»PT (2 ) 

PLZC I >»PT(3) 

GO TO 270 

180 IF (ILP(M> 300,200»185 

185 IF UI-3) 190,195*300 

190 11*3 

I PL < ! ) * I 
PIX( I >*PTC I 1 
PI Y( I >*PT(2 ) 

PIZ( I >*PT(3) 

VX-PT ( 1 l-PLX < I ) 

VY-PTI2 l-PLY < I ) 

VZ«PT(3)-PLZ < I ) 

VP( 1 )»SOPT( (VX**2 ) + (VY*«2 ) ) 

VP (2) -SORT { ( VZ**2 l-MVP t 1 )**2) > 

VPL-PT ( 2 )/ ( VY/VP < 1 ) ) 

PT (21*0* 

PT ( I )*PT (1 >- ( < VX/VP (1 ) ) 4VPL ) 

PT <3 ) -PT (3 >- I (VZ/VP(2 > )*VPL > 

195 ILP(!)-0 

200 PLX ( 1 )-PT ( 1 1 
PLY< I )«PT(2 ) 

PLZ( 1 l-PTO) 

205 XP- (PT ( I )+ <PT ( 2 1* ( -PT (1 ) >/< PT (2 )+VP ( 3 ) ) ) )*SF 
ZP* (PT(3)+(PT(2j4 (-PT ( 3 > )/ (PT (2 1+VP ( 3 ) ) > >*SF 
VPL*S0RT ( (XP**2 ( ZP*»2 > ) 

IF (VPL-PUlM) 235*235,210 
210 IF (ILP(I+2>) 300*215,230 

215 IF (11-31 394,225,300 

394 IF<PLX( 1+2 )-XP)2l2,2l 1 ,212 

211 PLX(I+2)-XP 
PLY( I+2)*ZP 
XP«PL 1 M* ( XP/VPL 1 
ZP«PL I M* ( ZP/VPL 1 
GO TO 337 

212 R» (PLY( 1+21-ZP >/ <PLX(I+21-XP > 

213 PLXX»PLX ( 1+2 ) » PLYY-PL V ( 1 +2 1 
B- ZP -R*XP 

XXP«XP S ZZP-ZP 

XA- (-R*B -SQRT( -B**2+ < R*»2 1 # ( PL I M**2 ) +PL I M*+2 ) > / { R**2 > 

ya*r«xa+b 

I I I -MMM-0 

IPLXX»PLXX*1 0**3 
IPLYY=PLYY* I 0**3 
IXXP«XXP*1 0**3 
IZZP«ZZP*1 0**3 
PLXX* I PLXX/ ( 1 0**3* 1 • ) 

PLYV- IPLYY/ ( 1 0**3*1 • ) 

XXP*lXXP/( 1 0**3*l • 1 
ZZP* lZZP/( 1 0*#3*1 • 1 
316 continue 

1 XA-XA* 10**3 
I YA«YA*1 0**3 
XX* I XA/( ( I 0**3 1*1.) 

YY* 1 YA/ ( < I 0**3 >*l • ) 

IF(PLYY- ZZP) 303*302,301 
301 IF(YY.GE,Z2P,AN0* YY»LE*PLYY ) GO TO 304 
GO TO 320 
302 YY»ZZP 

GO TO 304 

303 IF (YY-GE.PLYY . AND , YY . LE * ZZP ) GO TO 304 
GO TO 320 

304 IF(PUXX-XXP) 307,220*305 

305 IF(XX*Ge,XXP.4ND-XX*LE«PLXX) GO TO 220 
GO TO320 

307 IF (XX. 6E. PLXX . AND. XX * LE • XXP > GO TO 220 

320 IF f I I 1 .EC3.0 ) GO TO 321 
STOP 3333 

321 IIl*l 

XA* (-R*B +SQRT( -B**2 + R**2*PLIM**2 +PLIM**2)> /<R*»2 +l ) 

YA-R*XA+B 
GO TO 316 
220 PLX(I+2)*XP 
PLY ( 1+2 ) -ZP 
XP-XX 
ZP-YY 
111=0 

337 lLP(J+2>-l 
GO TO 265 
225 ILP( 1+2 > = 1 
230 PLX(I+2)-xP 
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PI.YJ 1+2 )*ZP 
GO TO 270 

235 IF (lLPtI+^^>» 300*255«2A0 

240 IF UI-3) 24S*250«300 

245 11*3 

I PL <1 +2 ) * I 
PIX ( 1+2 >*XP 
PI Y( 1+2)=ZP 

IF (PlX( 1+2 >*NE*XP ) GO TO 400 
V/PL*SQOT < <PLX( I +2 )**2 )+ (PLY ( I +2 ) **2 1 ) 

PIX( 1+2 )*XP 
PIZ( 1+2 )»ZP 
GO TO 250 

400 R« (PLY ( 1+2 ) -ZP ) / (PLX(I+2)-XP > 

455 PLXX*PLX< I+2> » PLYY-PL Y ( 1 +2 ) 

B* ZP “R*XP 
XXP“XP * ZZP*ZP 

XA* (-R*B -SORT! -B**2+(R*-*2>*(PLIM»*2)+PL1M**2) )/(R*»2 +1 ) 

ya>r«xa+b 

I 1 1 

1PLXX«PLXX*1 0**4 
1 PLYY»PLYY* I 0**4 
IXXP=XXP*10**4 
IZZP-ZZP*lO**4 
PLXX» I PLXX/ ( 1 0**4* I « ) 

PLYY« IPLVV/ ( 1 0**4* I « ) 

XXP- IXXP/ ( 1 0*-*4*l • ) 

ZZP*lZZP/( 10**4*1 • ) 

416 IXA«XA*10**4 

1YA«YA*10**4 
XX=IXA/( (10**4)*1 « ) 

YY« I YA/ i < 1 0**4 >*l • ) 

IFfPLYY- ZZP ) 403*402*401 

401 IF (YY.GE*ZZP*AN0* YY.LE .PLYY > GO TO 404 

GO TO 420 

402 YY*Z2P 

GO TO 404 

403 IF (YY*G£*PLYY . AND# YY • LE • ZZP ) GO TO 404 
GO TO 420 

404 IF(PLXX-XXP) 40T*246#405 

405 IF <XX*GE«XXP*AN0*XX*LE*PLXX ) GO TO 246 
GO T0420 

407 IF (XX*GE*PLXX • AND. XX • LE • XXP ) GO TO 246 
420 IFdlI.eO.O) GO TO 421 
STOP 6666 

+SQRTt -B»*2 + R**2*PLI"**2 +P«-I«**2)) /'<R»*2 +1 ) 

YA*P*XA+B 
GO TO 416 
246 XP»XX 
ZP»YY 
I I I«0 

ILP( l+2)*0 

?F mSQRT( < (PLX« 1+2) >**2) + ( <PLY( 1+211**2) n-PLlM) 260*260*240 

PLX( 1+2 1 *XP 
PLY ( 1 +2 1 “ZP 
XPT“XP+ADJ ( I+l ) 

ypt=zp+adj ( 1 ) 

CALL CALPLT (XPTiYPT.lIl 
I 1 -2 

IF (IPL(I+211 300*280*275 
I PL ( 1+2 1 “O 
XP = PIX < 1+2 ) 

Zp.pIY( 1+2 1 
GO TO 255 

IF (IPL(l)l 300.290*285 
IPL (11=0 
PT(1 )“PIX< I 1 
PT(2)“PIY( I ) 

PT<3)“P IZ ( I ) 

GO TO 200 
NO-NO+KK 
XLP ( I 1 “XPT 
ZLP( I )*YPT 
NO“l 
1 1 »IP 
CONT 1 NUE 
RETURN 
END 


250 

255 

260 

265 

270 

275 

280 

285 

290 

295 

300 
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PROGRAM USE 


PROGRAM IDENTIFICATION 

This program is for airplane configuration plots and is identified as program D2290. 

PROGRAM SETUP FOR A COMPILE AND EXECUTE 

This section describes the input data requirements, limitations, and the punched 
card formats. Samples of the input data sheets for preparation by the user are shown in 
figure 7. 

The input data cards are assembled with the program decks in the order illustrated 
below: 
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DESCRIPTION OF INPUT DATA CARDS 


Configuration 

Since the airplane has to be symmetrical about the XZ-plane, only half of the air- 
plane need be described to the computer. The convention used in presenting the input 
data is that the half of the airplane on the positive Y-side of the XZ-plane is presented. 
The program then uses this information to construct the complete airplane. The number 
of input cards depends on the number of components used to describe the configuration, 
whether a component has been described previously, and the amount of detail used to 
describe each component. The method of input is by FORTRAN "READ" statements. 

Card 1 — Identification. - Card 1 contains any desired identifying information in 
columns 1 to 80. (See fig. 7(a).) 

Card 2 - Control integers.- Card 2 contains 24 integers, each punched right justi- 
fied in a 3-column field. (See fig. 7(a).) Columns 73 to 80 may be used in any desired 
manner. An identification of the card columns, the name used by the source program, 
arid a description of each integer is given in the following table: 


Columns 


FORTRAN 

Name 


Description 


01 to 03 

JO 

If JO = 0, no reference area 
If JO = 1, reference area to be read 
If JO = 2, reference area same as previously 
read 

04 to 06 

J1 

If J 1 = 0, no wing data 
If J1 = 1, cambered wing data to be read 
If J1 = -1, uncambered wing data to be read 
If J1 = 2, wing data same as previously read 

07 to 09 

J2 

If J2 = 0, no fuselage data 
If J2 = 1, data for arbitrarily shaped fuselage 
to be read 

If J2 = -1, data for circular fuselage to be read 
(with J6 = 0, fuselage will be cam- 
bered; with J6 = -1, fuselage will 
be symmetrical with XY -plane; 
with J6 = 1, entire configuration 
will be symmetrical with XY -plane) 


If J2 = 2, fuselage data same as previously 
read 
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Columns 

FORTRAN 

Name 

Description 

10 to 12 

J3 

If J3 = 0, no pod data 

If J3 = 1, pod data to be read 

If J3 = 2, pod data same as previously read 

13 to 15 

J4 

If J4 = 0, no fin data 

If J4 = 1, fin data to be read 

If J4 = 2, fin data same as previously read 

16 to 18 

J5 

If J5 = 0, no canard data 

If J5 = 1, canard data to be read 

If J5 - 2, canard data same as previously read 

19 to 21 

J6 

Simplification code; 

If J6 = 0, indicates a cambered circular or 
arbitrary fuselage if J2 ^ 0 
If J6 = 1, complete configuration is symmet- 
rical with respect to XY-plane, 
which implies uncambered circular 
fuselage if there is a fuselage 
If J6 - -1, indicates uncambered circular 
fuselage with J2 / 0 

22 to 24 

NWAF 

Number of airfoil sections used to describe the 
wing; 2 < NWAF ^ 20 

25 to 27 

NWAFOR 

Number of ordinates used to define each wing 
airfoil section; 3 ^ NWAFOR ^ 30 


28 to 30 

NFUS 

Number of fuselage segments; 1 ^ NFUS - 4 

31 to 33 

NRADX(l) 

Number of points used to represent half -section 
of first fuselage segment; if fuselage is circu- 
lar, the program computes indicated number of 
y- and z -ordinates; 3 ^ NRADX(l) ^ 30 

34 to 36 

NFORX(l) 

Number of stations for first fuselage segment; 
4 ^ NFORX(l) ^ 30 

37 to 39 
40 to 42 

NRADX(2) 

NFORX(2) 

Same as NRADX(l) and NFORX(l), but for sec- 
ond fuselage segment 

43 to 45 
46 to 48 

NRADX(3) 

NFORX(3) 

Same as NRADX(l) and NFORX(l), but for third 
fuselage segment 
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Columns 

FORTRAN 

Name 

Description 

49 to 51 
52 to 54 

NRADX(4) 

NFORX(4) 

Same as NRADX(l) and NPORX(l), but for 
fourth fuselage segment 

55 to 57 

NP 

Number of pods described; NP ^ 9 

58 to 60 

NPODOR 

Number of stations at which pod radii are to be 
specified; 4 ^ NPODOR - 30 

61 to 63 

NF 

Number of fins (vertical tails) described; 
NF 6 

64 to 66 

NFINOR 

Number of ordinates used to define each fin 
airfoil section; 3 ^ NFINOR ^ 10 

67 to 69 

NCAN 

Number of canards (horizontal tails) described; 
NCAN s 2 

70 to 72 

NCANOR 

Number of ordinates used to define each canard 


airfoil section; 3 - NCAJSIOR - 10; if NCANOR 
is given a negative sign, the program will 
expect to read lower ordinates also; otherwise, 
airfoil is assumed to be symmetrical 

Cards 3, 4, . . . — remaining data input cards. - The remaining data input cards 
contain a detailed description of each component of the airplane. (See fig. 7(a).) Each 
card contains up to 10 values, each value punched in a 7 -column field with a decimal and 
may be identified in columns 73 to 80. The cards are arranged in the following order: 
reference area, wing data cards, fuselage data cards, pod (or nacelle) data cards, fin 
(vertical tail) data cards, and canard (or horizontal tail) data cards. 

Reference area card: The reference area value is punched in columns 1 to 7 and 
may be identified as REFA in columns 73 to 80. 

Wing d a tq cards: The first wing data card (or cards) contains the locations in per- 
cent chord at which the ordinates of all the wii^ airfoils are to be specified. There will 
be exactly NWAFOR locations in percent chord given. Each card may be identified in 
columns 73 to 80 by the symbol XAF j where j denotes the number of the last location 
in percent chord given on that card. For example, if NWAFOR = 16, there are 16 ordi- 
nates to be specified for every airfoil, and two data cards will be required. The first 
XAF card is identified as XAF 10 and the second as XAF 16. 

The next wing data cards (there will be NWAF cards) each contain four numbers 
which give the origin and chord length of each of the wing airfoils that is to be specified. 
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The cards representing the most inboard airfoil are given first, followed by the cards for 
successive airfoils. The information is arranged on each card as follows: 


Columns 


Description 


1 to 7 
8 to 14 
15 to 21 
22 to 28 
73 to 80 


x-ordinate of airfoil leading edge 
y -ordinate of airfoil leading edge 
z -ordinate of airfoil leading edge 
airfoil streamwise chord length 

card identification, WAFORGj where j denotes the particular 
airfoil; for example, WAFORG 1 denotes first (most inboard) 
airfoil 


If a cambered wing has been specified, the next set of wing data cards is the mean 
camber line (TZORD) cards. The first card contains up to 10 Az values, referenced 
to the z-ordinate of the airfoil leading edge, at each of the specified percents of chord 
for the first airfoil. If more than 10 values are to be specified for each airfoil (there 
will be NWAFOR values), the remaining values are continued on successive cards. The 
remaining airfoils are described in the same manner, data for each airfoil starting on a 
new card, and the cards arranged in the order which begins with the most inboard airfoil 
and proceeds to the outboard. Each card may be identified in columns 73 to 80 as 
TZORDj, where j denotes the particular airfoil. 

Next are the wing airfoil ordinate (WAFORD) cards. The first card contains up to 
10 half -thickness ordinates of the first airfoil expressed as percent chord. If more than 
10 ordinates are to be specified for each airfoil (there will be NWAFOR values), the 
remaining ordinates are continued on successive cards. The remaining airfoils are each 
described in the same manner, and the cards are arranged in the order which begins with 
the most inboard airfoil and proceeds to the outboard. Each card may be identified in 
columns 73 to 80 as WAFORD j, where j denotes the particular airfoil. 

Fuselage data cards: The first card (or cards) specifies the x values of the fuse- 
lage stations of the first segment. There will be NFORX(l) values and the cards may be 
identified in columns 73 to 80 by the symbol XFUS j where j denotes the number of the 
last fuselage station given on that card. 

If the fuselage is circular and cambered, the next set of cards specifies the z loca- 
tions of the center of the circular sections. There will be NFORX(l) values and the cards 
may be identified in columns 73 to 80 by the symbol ZFUSj where i denotes the number 
of the last fuselage station given on that card. 
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If the fuselage is circular, the next card (or cards) gives the fuselage cross- 
sectional areas, and may be identified in columns 73 to 80 by the symbol FUSARDj 
where j denotes the number of the last fuselage station given on that card. If the fuse- 
lage is of arbitrary shape, the y-ordinates for a half-section are given (NRADX(l) values) 
and identified in columns 73 to 80 as Yi where i is the station number. Following 
these are the corresponding z -ordinates (NRADX(l) values) for the half -section identified 
in columns 73 to 80 as Zi where i is the station number. Each station will have a set 
of Y and Z cards, and the convention of ordering the ordinates from bottom to top is 
observed. 

For each fuselage segment a new set of cards as described must be provided. The 
segment descriptions should be given in order of increasing values of x. 

Pod data cards: The first pod or nacelle data card specifies the location of the 
origin of the first pod. The information is arranged on the card as follows: 


Columns 
1 to 7 
8 to 14 
15 to 21 
73 to 80 


Description 

x-ordinate of origin of first pod 
y -ordinate of origin of first pod 
z -ordinate of origin of first pod 

card identification, PODORGj where j denotes pod number 


The next pod input data card (or cards) contains the x-ordinates, referenced to the 
pod origin, at which the pod radii (there will be NPODOR of them) are to be specified. 

The first x-value must be zero, and the last x-value is the length of the pod. These cards 
may be idenfied in columns 73 to 80 by the symbol XPODj where j denotes the pod num- 
ber. For example, XPOD 1 represents the first pod. 


The next pod input data cards give the pod radii corresponding to the pod stations 
that have been specified. These cards may be identified in columns 73 to 80 as PODRj 
where j denotes the pod number. 


For each additional pod, new PODORG, XPOD, and PODR cards must be provided. 
Only single pods are described but the program assumes that if the y-ordinate is not 
zero an exact duplicate is located symmetrically with respect to the XZ-plane; a 
y-ordinate of zero implies a single pod. 

Fin data cards: Exactly three data input cards are used to describe a fin. The 
information presented on the first fin data input card is as follows: 
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Columns 


Description 


1 

to 

7 

8 

to 

14 

15 

to 

21 

22 

to 

28 

29 

to 

35 

36 

to 

42 

43 

to 

49 

50 

to 

56 

73 

to 

80 


x-ordinate of lower airfoil leading edge 
y -ordinate of lower airfoil leading edge 
z -ordinate of lower airfoil leading edge 
chord length of lower airfoil 
x-ordinate of upper airfoil leading edge 
y -ordinate of upper airfoil leading edge 
z -ordinate of upper airfoil leading edge 
chord length of upper airfoil 

card identification, FINORG j where j denotes fin number 


The second fin data input card contains up to 10 locations in percent chord (exactly 
NFINOR of them) at which the fin airfoil ordinates are to be specified. The card may be 
identified in columns 73 to 80 as XFINj where j denotes the fin number. 


The third fin data input card contains the fin airfoil half -thickness ordinates 
expressed in percent chord. Since the fin airfoil must be symmetrical, only the ordinates 
on the positive y side of the fin chord plane are specified. The card identification, 
FINORDj, may be given in columns 73 to 80, where j denotes the fin number. 

For each fin, new FINORG, XFIN, and FINORD cards must be provided. 

Only single fins are described but the program assumes that if the y -ordinate is 
not zero an exact duplicate is located symmetrically with respect to the XZ -plane; a 
y-ordinate of zero implies a single fin. 

Canard data cards: If the canard (or horizontal tail) airfoil is symmetrical, 
exactly three cards are used to describe a canard, and the input is given in the same 
manner as for the fin. If, however, the canard airfoil is not symmetrical (indicated by 
a negative value of NCANOR), a fourth canard data input card will be required to give the 
lower ordinates. The information presented on the first canard data input card is as 


follows: 


Columns 

Description 

1 to 7 

x-ordinate of inboard airfoil leading edge 

8 to 14 

y -ordinate of inboard airfoil leading edge 

15 to 21 

z -ordinate of inboard airfoil leading edge 

22 to 28 

chord length of inboard airfoil 
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Columns 


Description 


29 to 35 X -ordinate of outboard airfoil leading edge 

36 to 42 y -ordinate of outboard airfoil leading edge 

43 to 49 z -ordinate of outboard airfoil leading edge 

50 to 56 chord length of outboard airfoil 

73 to 80 card identification, CANORGj where j denotes the canard number 

The second canard data input card contains up to 10 locations in percent chord 
(exactly NCANOR of them) at which the canard airfoil ordinates are to be specified. The 
card may be identified in columns 73 to 80 as XCANj where j denotes the canard number. 

The third canard data input card contains the upper half -thickness ordinates, 
expressed in percent chord, of the canard airfoil. This card may be identified in columns 
73 to 80 as CANORDj where j denotes the canard number. If the canard airfoil is not 
symmetrical, the lower ordinates are presented on a second CANORD card. The program 
expects both upper and lower ordinates to be punched as positive values in percent chord. 

For another canard, new CANORG, XCAN, and CANORD cards must be provided. 


Plot Cards 


A single card contains all the necessary information for one plot. The available 
options and the necessary input for each are described in the succeeding sections. 

Orthographic projections.- 
as follows (see fig. 7(b)): 

For orthographic projections, the card should be set up 

Columns 

FORTRAN 

Name 

Description 

1 

HORZ 

"X", "Y", or "Z" for horizontal axis 

3 

VERT 

"X", "Y", or "Z" for vertical axis 

5 to 7 

TESTl 

Word "OUT" for deletion of hidden lines; other- 
wise, leave blank 

8 to 12 

PHI 

Roll angle, degrees 

13 to 17 

THETA 

Pitch angle, degrees 

18 to 22 

PSI 

Yaw angle, degrees 

48 to 52 

PLOTS Z 

PLOTSZ determines the size of plot (scale factor 
is computed using PLOTSZ and maximum 


dimension of configuration) 
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Columns 

FORTRAN 

Name 

Description 

53 to 55 

TYPE 

Word "ORT" 

72 

KODE 

If KODE = 0, continue reading plot cards 
If KODE = 1, after processing this plot, read 
new configuration description 

An attempt is made to center the given configuration within the specified field. If 
the desired plot size is greater than 28 inches, centering is attempted within 28 inches so 
care must be taken in choosing the view. Minimum values are adjusted so that body axis 
lines with no rotation angles coincide with grid lines on the plotter paper. Therefore, 
the plotter pen should always be positioned exactly 1 inch from the side of the plotting 
space and on the intersection of heavy grid lines at the start of plotting. 

Plan, front, and side views (stacked).- For plan, front, and side views, the card 
should be set up as follows (see fig. 7(b)): 

Columns 

FORTRAN 

Name 

Description 

8 to 12 

PHI 

y -origin on paper of plan view, inches 

13 to 17 

THETA 

y -origin on paper of side view, inches 

18 to 22 

PSI 

y-origin on paper of front view, inches 

48 to 52 

PLOTS Z 

PLOTSZ determines size of plot (a scale factor 
is computed using PLOTSZ and maximum 
dimension of configuration) 

53 to 55 

TYPE 

Word "VU3" 

72 

KODE 

If KODE = 0, continue reading plot cards 
If KODE = 1, after processing this plot, read 
new configuration description 

Perspective 
(see fig. 7(b)): 

views.- For perspective views, the card should be set up as follows 

Columns 

FORTRAN 

Name 

Description 

8 to 12 

PHI 

X of view point (location of viewer) in data 
coordinate system 

13 to 17 

THETA 

y of view point in data coordinate system 

18 to 22 

PSI 

z of view point in data coordinate system 
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Columns 

FORTRAN 

Name 

Description 

23 to 27 

XF 

x of focal point (determines direction and focus) 
in data coordinate system 

28 to 32 

YF 

y of focal point in data coordinate system 

33 to 37 

ZF 

z of focal point in data coordinate system 

38 to 42 

BIST 

Distance from eye to viewing plane, inches 

43 to 47 

FMAG 

Viewing -plane magnification factor; it controls 
size of projected image 

48 to 52 

PLOTS Z 

Diameter of viewing plane, inches; DIST and 
PLOTSZ together determine a cone which is 
field of vision; PLOTSZ value is also relative 
to type of viewer which is to be used. 

53 to 55 

TYPE 

Word "PER" 

72 

KOBE 

If KOBE = 0, continue readii^ plot cards 


If KOBE = 1, after processing this plot, read 
new configuration description. 

Stereo frames suitable for viewing in a stereoscope .- For stereo frames suitable 
for viewing in a stereoscope, the input is identical to that for the perspective views 
except that the word "STE" is used in columns 53 to 55. 

OUTPUT 

The card images of all the input data - configuration description and plot cards - 
are printed. The necessary instructions for driving automatic plotting equipment are 
written on a scratch file. 


MACHINE SETUP 

This program was written in FORTRAN Version 2.0 for Control Data series 6000 
computer systems with the Scope 3 operating system and library tape. Tape unit 5 is 
used for input, unit 6 for output, and units 9, 10, and 12 for intermediate storage. Approx- 
imately 55000 octal locations of core storage are required and the processing of informa- 
tion for one plot is less than 1 minute of computer time. 

The decoupled version of the plotting system routes plotter output to a scratch file 
during job execution; therefore, this file has to be copied to a tape file at job completion 
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for off-line plotting on a CalComp digital incremental plotter. The plotter pen should 
always be positioned at least 1 inch in the positive y-direction at the beginning of plotting. 
If grid paper is used, the starting pen location should be exactly at an x of zero and 
a y of 1 inch. 


OPERATIONAL DETAILS 

Subroutines CALCOMP, CALPLT, NOTATE, and LINE are the basic subroutines 
used from the CalComp software package. Subroutine CALCOMP causes the necessary 
parameters and linkage to be set up to output a file in suitable form for a CalComp digital 
incremental plotter. Subroutine CALPLT causes the plotter pen to move to a new loca- 
tion with pen either up or down. Subroutine NOTATE draws alphanumeric information for 
annotation and labeling. Subroutine LINE draws a continuous line through a set of suc- 
cessive data points where the minimum values and scale factors are stored at the end of 
the data arrays. 


CONCLUDING REMARKS 


A digital computer program (D2290) is presented which generates the necessary 
instructions for automatic plotting of an airplane numerical model. Program options may 
be used to draw three-view and oblique orthographic projections, as well as perspective 
projections of an airplane. These plots are useful in checking the accuracy of the numer- 
ical model data. Magnetic tape output from this program has been used to drive a 
CalComp plotter and a Gerber plotter. The program has also been used for online display 
of a configuration on a cathode -ray -tube device. 

Langley Research Center, 

National Aeronautics and Space Administration, 

Hampton, Va., May 13, 1970. 
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TABLE I.- INPUT CONFIGURATION DATA AND PIX)T SPECIFICATIONS FOR THE 
ORTHOGRAPHIC PRESENTATIONS SHOWN IN FIGURES 1 TO 3 


SST configuration with cambered circular body 
11-111 12 13 1 17 26 2 10 3 10 

9494 , 

0 •! »6 10#0 20#0 30#0 40*0 50*0 60»0 70*0 

80*0 90«0 100*0 

82.30 5*05 0# 100.100 

93.80 6.60 0. 166.201 

114.1999.90 -.45 142.351 

130.629 13.20 -1*40 124.870 

157.98 19.80 -1.85 98.570 

181.29 26.40 -1.15 78.510 

202.41 33.00 -.35 61.241 

221.63 39.60 -1*60 47.819 

239.18 46.20 -2.80 36.719 

255.00 52.80 -3.75 25.35 

269.23 59.40 -4.30 15.670 

282.00 66.00 -4.40 7.400 


3.60 

3.70 3.90 

3.75 

2.75 

• 95 

-1 .35 

-3.45 

-5.30 

-6.80 

-8.20 
. 10 

-9.10 -9.40 

.50 1.75 

2.00 

2.10 

1 .20 

-.05 

-1 .85 

-3.25 

-4.70 

-6.30 

0. 

-7.70 -8.80 

.35 .90 

1 .20 

1.35 

• 70 

-.20 

-1 .20 

-2.35 

-3.45 

-4.55 

0. 

-5.75 -6.80 

.165 .72 

.93 

1 .0 

.6875 

• 1 5 

-.56 

-1 .35 

-2.205 

-3.07 

0. 

-3.9375 -4.801 
.10 .45 

.60 

.72 

.695 

.40 

.0875 

-.295 

-.7825 

-1.15 

0. 

-1 .685 -2.173 
.05 .285 

.42 

.5925 

.625 

.47 

.3125 

.12 

-.10 

-.345 

0. 

-.6175 -.8989 
.04 .1935 

.2765 

.3950 

.4395 

.4330 

.3860 

.3085 

.2075 

.0915 

0. 

-.0390 -.1820 
.0225 .1085 

.160 

• 249 

.2980 

.3135 

.3040 

.2780 

.2380 

• 185 

0. 

.1235 .0568 

.02 .1055 

,1580 

.248 

.2858 

.305 

.311 

• 308 

.2995 

.2845 

0. 

.2635 .2385 

.0085 .049 

,0695 

.1175 

.144 

. 1 55 

. 1 58 

.1595 

• 1585 

. 1545 

0. 

.148 .1398 

-.003 -.014 

-.023 

-.043 

-.061 

-.077 

-.090 

-. 1005 

-.110 

-.1 155 

0. 

-.1 190 -.1224 
-.0025 -.010 

-.017 

-.0325 

-.047 

-.062 

-.075 

-.088 

-.100 

-.1115 

0.0 

-.1220 -.1324 
.304 .491 

.803 

1 .069 

1 .280 

1 .430 

1 .518 

1 .550 

1 .451 

1.162 

0.0 

.678 0.0 

.265 .423 

.710 

.962 

1.156 

1 .296 

1 .373 

1 .396 

1 .294 

1 .028 
0.0 

.593 0.0 

.226 .338 

,635 

.889 

1.079 

I .204 

1 .272 

1.263 

1.136 

.886 

0. 

.506 0.0 

.204 .274 

.596 

.870 

1 .074 

1 .200 

1 .250 

1.234 

1 .083 


REFA 

xaf 10 

XAF 13 
WAFORG 1 
WAFORG 2 
WAFORG 3 
WAFORG 4 
WAFORG 5 
WAFORG 6 
WAFORG 7 
WAFORG 8 
WAFORG 9 
WAFORG 1 0 

waforgi I 

WAFORG 12 
TZORD 1 
TZORO I 
TZORD 2 
TZORD 2 
TZORD 3 
TZORD 3 
TZORD 4 
TZORD 4 
TZORO 5 
TZORD 5 
TZORD 6 
TZORD 6 
TZORD 7 
TZORD 7 
TZORD 8 
TZORD 8 
TZORD 9 
TZORD 9 
TZORO 10 
TZORD 10 
TZORO 1 I 
TZORD I 1 
TZORD 12 
TZORD 12 
WAFORO 1 
WAFORD I 
WAFORO 2 

WAFORD 2 
WAFORD 3 
WAFORD 3 
WAFORD 4 
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TABLE I.- INPUT CONFIGURATION DATA AND PLOT SPECIFICATIONS FOR THE 
ORTHOGRAPHIC PRESENTATIONS SHOWN IN FIGURES 1 TO 3 - Concluded 


.032 

.472 

0. 


0.0 

• 1 44 

• 175 

.559 

• 826 

.466 

0.0 


0. 

• 066 

.09 

.522 

.852 

• 48 

0. 


0.0 

• 006 

• 033 

.495 

.880 

• 495 

0.0 


0.0 

• 006 

.033 

.495 

• 880 

• 495 

0.0 


0.0 

• 006 

.033 

.495 

.880 

• 495 

0.0 


0.0 

. 006 

.033 

.495 

• 880 

• 495 

0.0 


0.0 

.006 

.033 

.495 

• 880 

• 495 

0.0 


0.0 

• 006 

.033 

.495 

.880 

.495 

0.0 


0. 

20. 

40. 

50. 

130. 

140. 

I 50. 

160. 

260. 

270. 

280. 

290. 

7.4 

7.4 

7.4 

7.4 

1 .25 

0. 

“1 .3 

~2.5 

-10.2 

-10.2 

-*10.2 

-10.2 

0. 

18.5 

48. 

65 • 

98. 

100.7 

101 • 

98. 

62. 

50.5 

37. 

24. 

236.8 

7.50 

“11.55 


0.0 

4.0 

8.0 

12.0 

2.292 

2.477 

2.644 

2.791 

241 .0 

31 .75 

“3.60 


0.0 

4.0 

0.0 

12.0 

2.292 

2.477 

2.644 

2.791 

252.0 

47.0 

-2.95 

35.3 

0.0 

10.0 

20.0 

30.0 

0.0 

0.31 1 

0.564 

0.759 

277.9 

0. 

“6.77 

35.3 

o 

• 

C 

o 

• 

c 

20.0 

30.0 

0.0 

0.311 

0.564 

0.759 

312. 

0. 

“10.2 

0. 

0.0 

o 

. 

o 

20.0 

30.0 

0.0 

0.311 

0.564 

0.759 

X Y 

0. 0. 

0. 


X 2 

0. 0. 

0. 


Y 2 

0. 0. 

0. 


X 2 

-45. 10 

• “30. 


V 2 OUT 

-45. 10 

• “20 • 


X 2 OUT 

“60. -20. -40. 



• 886 

1.111 

1 .246 

1 .294 

• 086 

1 .145 

1 .289 

1.341 

• 880 

1.155 

1 .320 

1 .375 

.880 

1.155 

1 .320 

1 .375 

• 080 

1.155 

1 .320 

1 .375 

.880 

1.155 

1 .320 

1 .375 

• 880 

1.155 

1 .320 

1 .375 

.880 

1.155 

1 .320 

1 .375 

60. 

70. 

80. 

90. 

180. 

200. 

220. 

230. 

300. 

312. 



7.4 

7.4 

7. 

6. 15 

“5. 

-7.45 

“9.2 

-9.75 

(VJ 

• 

0 

1 

“1 0.2 



83. 

96. 

95.5 

92.2 

89.5 

79. 

70. 

66.5 

1 1.5 

0. 



16.0 

o 

• 

o 

CVJ 

24.0 

26.0 

2.915 

3.012 

3.076 

3.097 

16.0 

20.0 

24.0 

28.0 

2.915 

3.012 

3.076 

3.097 

285.36 

47.0 

6.31 

4.77 

40.0 

50.0 

60.0 

70.0 

0.897 

0.977 

0.999 

0.927 

31 1 .3 

0. 

2.49 

4.77 

40.0 

50.0 

60.0 

70.0 

0.897 

0.977 

0.999 

0.927 

277.9 

0. 

“6.77 

35.3 

40.0 

50.0 

60.0 

70.0 

0.897 

0.977 

0.999 

0.927 



18 

• ORT 



18 

• ORT 



42 

. ORT 



16 

• ORT 



18 

. ORT 



16 

. ORT 


1.242 

1 .087 

WAFORD 4 
WAFORD 5 

1 .285 

1.125 

WAFORD 5 
WAFORO 6 

1 • 320 

1 .155 

WAFORO 6 
WAFORO 7 

1 .320 

1.155 

WAFORD 7 
WAFORD 6 

1 .320 

1.155 

WAFORD 8 
WAFORD 9 

1 .320 

1.155 

WAFORD 9 

wafordio 

1 .320 

1 .155 

WAFORD 10 
WAFORD 1 1 

1 .320 

1 .155 

WAFORD I 1 
WAFORO 12 

100« 

120. 

WAFORD 12 
XFUS 10 

240* 

250. 

XFUS 20 

5. 

2.5 

XFUS 26 
2FUS 1 0 

“10. 

“10.15 

2FUS 20 

92.5 

96. 

2FUS 26 
AFUS 10 

68.5 

67.3 

AFUS 20 

32.0 

34.5 

AFUS 26 
PODORG 1 
XPOD 1 

3. 100 

3.100 

POOR 1 

32.0 

34.5 

PODORG 2 
XPOD 2 

3. 1 00 

3.100 

POOR 2 

90.0 

1 00.0 

FINORG 2 
XFIN 2 

0.427 

0.0 

FINORD 2 

90.0 

1 00.0 

FINORG 3 
XFIN 3 

0.427 

0.0 

FINORD 3 

90.0 

100.0 

FINORG 3 A 
XFIN 3 

0.427 

0.0 

FINORD 3 
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TABLE n.- INPUT DATA FOR A SIMPLIFIED AIRPLANE CONFIGURATION AND PLOT 
SPECIFICATIONS FOR THE THREE-VIEW PRESENTATION OF FIGURE 4 


SIMPLIFIED AIRCRAFT 

CONFIGURATION 


1 -1 

-1 1 

1 1 - 

-1 4 10 

1 13 

18 

3207.0 

0.0 

1 0.0 

20*0 

30.0 

40.0 

50.0 

42*8 

5.2 

0.0 

89.2 



56#2 

8.0 

0.0 

66.0 



141 .5 

31 .7 

0.0 

19.7 



156.4 

36.0 

0.0 

0.0 



0.0 

1 .66 

2.19 

2.45 

2.49 

2.33 

0.0 

1 .62 

2.14 

2.39 

2.43 

2.27 

0*0 

I #17 

1 .54 

! .73 

1 .75 

1 .64 

0.0 

1.17 

1 .54 

1.73 

1 .75 

1 .64 

0.0 

1 0.0 

20#0 

30.0 

40.0 

50.0 

100.0 

110.0 

121 «0 

131 .0 

141 .0 

151 .0 

0.0 

16.1 

44.0 

59.3 

70.5 

75.2 

75.2 

75.2 

74.0 

64.4 

50.2 

28.4 

141.0 

4.6 

8.0 




0.0 

4.0 

8.0 

10.75 

29.4 


1 .890 

2.050 

2.205 

2.325 

2.325 


94.0 

9.4 

-6*3 




0.0 

4.0 

8.0 

10.75 

29.4 


1 .890 

2.050 

2.205 

2*325 

2.325 


97.0 

9.4 

-3»7 

24.0 

94.0 

9.4 

0.0 

1 0.0 

20.0 

30.0 

40.0 

50.0 

0.0 

O*550 

0.992 

1 .302 

1 .488 

1 .550 

144.0 

4.6 

3.7 

24.0 

141 .0 

4.6 

0.0 

! 0.0 

20.0 

30.0 

40.0 

50.0 

0.0 

0.558 

0.992 

1.302 

1 .488 

1 .550 

134.2 

0.0 

3.2 

28.2 

160*8 

0.0 

0#0 

1 0.0 

20.0 

30.0 

40.0 

60.0 

0.0 

0.558 

0.992 

1 .302 

1 .488 

1 .550 

147.6 

2.4 

0.0 

19.6 

167.8 

14.3 

0.0 

10.0 

20.0 

30.0 

40.0 

50.0 

o 

. 

o 

0.54 

0.96 

1 .26 

1 .44 

1 .50 


9* 3* 6* 




2 5 

3 10 1 

10 






RE FA 


60.0 

70.0 

CD 

O 

. 

o 

100.0 

xaf 

10 





WAFORG 

1 





WAFORG 

2 





waforg 

3 





WAFORG 

4 

2.00 

1 .56 

1 .05 

0.0 

WAFORD 

1 

1 .96 

! .53 

1 .02 

0.0 

WAFORO 

2 

1 .42 

t * 10 

0.96 

0.0 

WAFORD 

3 

1 .42 

1.10 

0.96 

0.0 

waforo 

4 

60.0 

70.0 

80.0 

90.0 

XFUS 

10 

161 .0 

170.0 



XFUS 

18 

75.2 

75.2 

75.2 

75.2 

FUSAROlO 

10.7 

0.0 



FUSAR018 





pooorg 

1 





XPOD 

1 





POOR 

1 





PODORG 

2 





XPOD 

2 





POOR 

2 

-1 .7 

24.0 



FINORG 

1 

60.0 

70.0 

80.0 

100.0 

XFIN 

1 

I .486 

1 .302 

0.992 

0.0 

FINORO 

1 

5.7 

24.0 



F 1 NORG 

2 

60.0 

70.0 

80.0 

1 00.0 

xfin 

2 

1 .468 

1 .302 

0.992 

0.0 

FINORO 

2 

23.6 

6.6 



F I NORG 

3 

60.0 

70.0 

80.0 

100.0 

XFIN 

3 

1 .488 

1 .302 

0.992 

0.0 

F I NORO 

3 

0.0 

6. 1 



canorg 


60.0 

70.0 

80.0 

100.0 

XCAN 


1 .44 

1 .26 

0.96 

0.0 

canord 



t7, VU3 
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TABLE m.- INPUT CONFIGURATION DATA AND PLOT SPECIFICATIONS FOR A 
FIGHTER-TYPE CONFIGURATION SHOWN IN THE PERSPECTIVE 

VIEWS OF FIGURE 5 


fighter type configuration with arbitrary body 


1 1 

1 1 

1 1 c 

> 7 13 

4 21 13 24 

10 30 21 

25 2 

2 9 6 10 2 

10 

131 .104 









PE FA 

0. 

• 01 

5. 

10. 

20. 

30. 

40. 

50. 

60. 

70. 

XAF 10 

80# 

90. 

100. 








XAF 13 

I 1 #6 

1 .4 

2.00 

13.6 







WOPG 1 

16#H5 

3.0 

1 .83 

1 1 .625 







WOPG 2 

18#975 

4.0 

1 -763 

10.460 







WOPG 3 

22.150 

5.0 

1 .719 

8.856 







WOPG 4 

25.332 

6.0 

1 .709 

7.250 







WOPG 5 

26.686 

6.43 

1 .695 

6*550 







WOPG 6 

32.140 

8.120 

1 .670 

0. 







WOPG 7 

0. 

0. 

.01 

.02 

.02 

-.02 

-.09 

-. 17 

-.20 

-.14 

TZORD 1 

->•05 

• 05 

• 19 








T20P0 1 

0. 

O. 

• 02 

.03 

• 02 

.01 

-.02 

-.01 

• 0 1 

0. 

TZOPD 2 

.02 

• 04 

.02 








TZORO 2 

0. 

0. 

-.002 

-.001 

-.003 

.003 

• 010 

.013 

• 017 

• 019 

TZOPO 3 

• 022 

• 020 

• 018 








TZORD 3 

0. 

0. 

• 002 

.012 

• 024 

.040 

• 045 

• 051 

• 057 

• 063 

TZOPD 4 

• 070 

• 073 

• 074 








TZOPD 4 

0. 

0. 

-.004 

.005 

.021 

• 034 

.047 

• 056 

.064 

.076 

TZORD 5 

.087 

.093 

• 099 








TZORD 5 

0. 

0. 

.003 

.012 

• 029 

• 043 

.057 

• 068 

• 0 78 

.090 

TZOPD 6 

• 104 

• 114 

.120 








TZORD 6 

0* 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

TZORD 7 

0. 

0. 

0. 








TZORD 7 

0. 

0. 

1 .09 

1 .71 

2.63 

3.22 

3.65 

3.90 

3.68 

3.08 

WORD 1 

2.21 

1.18 

0. 








WORD 1 

0. 

0. 

1.125 

1.800 

2.810 

3.380 

3.300 

2.405 

2.190 

1 .821 

WORD 2 

1 .267 

.660 

0. 








WORD 2 

0. 

0. 

1 .363 

1.855 

2.199 

2.314 

2.423 

2.405 

2.190 

1.821 

WORD 3 

1 .267 

• 660 

0. 








WORD 3 

0. 

0. 

1 .225 

1.604 

2.078 

2.366 

2.484 

2.422 

2.197 

1 .813 

WORD 4 

1 .246 

• 638 

0. 








WORD 4 

0. 

0. 

1 .297 

1 .682 

2.138 

2.393 

2.476 

2.407 

2. 159 

1 .738 

WORD 5 

1.193 

.600 

0* 








WORD 5 

0. 

0. 

1 .306 

1.703 

2.153 

2.390 

2.489 

2.397 

2.136 

1 .718 

WORD 6 

1.153 

.580 

0. 








WORD 6 

0. 

0. 

1 .306 

1 .703 

2.153 

2.390 

2.489 

2.397 

2. 138 

1 .718 

WORD 7 

1.153 

• 560 

0. 








WORD 7 

0.000 

1*542 

2.375 

3.208 

4.042 

4.875 5.708 

6.542 

7.375 

8.625 

XFUS 1 ( 

9.458 

1 10.292 

11.125 








xFus i: 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 0*000 

0.000 

' 0.000 

0.000 

Y 

0*000 

t 0.000 

' 0.000 

0.000 

0.000 

0.000 0.000 

0.000 

' 0.000 

0.000 

Y 
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TABLE III.- INPUT CONFIGURATION DATA AND PLOT SPECIFICATIONS FOR A 
FIGHTER-TYPE CONFIGURATION SHOWN IN THE PERSPECTIVE 


VIEWS OF FIGURE 5 - Continued 


0»000 


0*000 

0*000 

0.000 

0.000 

0.000 

0*000 

0 *000 

0*000 

0.000 

0*000 

0*000 

0*000 

*064 

• 142 

*216 

.290 

*533 

.516 

• 486 

.442 

• 389 

0*000 

-.482 

-•480 

-.475 

-.455 

-.425 

.001 

.088 

• 155 

*224 

.285 

• 435 
0*000 

• 102 

*207 

*306 

• 405 

*721 

*701 

• 659 

.592 

• 525 

0*000 

-•675 

-.665 

-•642 

-•612 

-.570 

*003 

.1 16 

• 213 

• 314 

*390 

• 602 
0*000 

*123 

• 244 

*372 

*494 

*879 

• 854 

• 809 

.740 

• 656 

0.000 

-.755 

-.750 

-•733 

-.700 

-.652 

• 028 

• 165 

*285 

.406 

.503 

• 756 
0.000 

* 138 

*268 

.409 

*539 

1 .002 

.985 

• 940 

.868 

.779 

0.000 

-.825 

-.818 

-.801 

-.764 

-.715 

*035 

*187 

• 338 

• 478 

.394 

.904 

0.000 

• 153 

.299 

• 454 

*599 

1 *091 

1 .074 

J .025 

*949 

*853 

0.000 

-.845 

-.839 

-•822 

-.787 

-.733 

• 103 

.267 

*429 

.581 

• 709 

1 .063 
0*000 

* 156 

.310 

• 466 

• 623 

1 .174 

1*155 

1.107 

1 *032 

• 933 

0.000 

-.831 

-.826 

-.809 

-.779 

-.729 

• 126 

• 300 

• 482 

*648 

.792 

1 *217 
0.000 

*158 

*312 

.472 

.636 

1 *238 

1 .230 

1*194 

1.124 

1*015 

0.000 

-.796 

-.794 

-•782 

-.755 

-.707 


Y 


0.000 

0*000 

0.000 

0.000 

0*000 

Z 

0*000 

0*000 

0.000 

0.000 

0*000 

z 






z 

*366 

*428 

.479 

.516 

• 531 

Y 

• 329 

.267 

• 195 

*130 

• 068 

Y 






Y 

-.376 

-.321 

-.252 

-.175 

-•093 

Z 

.333 

• 370 

*400 

*419 

• 428 

Z 






z 

*505 

*585 

.654 

• 700 

• 718 

Y 

*450 

*361 

• 275 

• 160 

• 089 

Y 






Y 

-.51 1 

-.436 

-.339 

-•227 

-•lie 

Z 

*455 

.509 

*546 

• 577 

• 595 

Z 






z 

.61 ! 

• 713 

*799 

• 851 

• 877 

Y 

*561 

*455 

*338 

• 225 

• 111 

Y 






Y 

-.581 

-.494 

-.378 

-•252 

-• 109 

Z 

• 584 

*646 

.696 

• 728 

• 748 

Z 






z 

*675 

• 790 

*890 

• 957 

.993 

Y 

*673 

.537 

*404 

• 272 

• 136 

Y 






Y 

-•636 

-•545 

-.425 

-•279 

-.128 

Z 

• 694 

• 779 

.837 

.874 

• 896 

Z 






z 

*747 

.876 

.980 

1 *052 

1 *089 

Y 

• 733 

• 592 

*455 

.308 

*153 

Y 






Y 

-.645 

-.542 

-.412 

-.250 

-*075 

Z 

*824 

.921 

• 981 

1 .026 

1 .052 

Z 






z 

• 775 

• 912 

1 .035 

1.118 

1*164 

Y 

• 805 

• 666 

• 506 

• 333 

• 163 

Y 






Y 

-.654 

-.548 

-.410 

-.244 

-.067 

Z 

• 944 

1 .044 

1.122 

1.177 

1 .206 

z 






z 

*790 

*937 

1 .070 

1.159 

1 .215 

Y 

*886 

• 729 

*563 

• 377 

• 168 

Y 






Y 

-.636 

-.532 

-.385 

-.225 

-•041 

Z 


I 

1 

1 
1 

2 
2 
2 
2 
2 
2 
3 
3 
3 
3 
3 

3 

4 
4 
4 
4 
4 

4 

5 
5 
5 
5 
5 

5 

6 
6 
6 
6 
6 
6 
7 
7 
7 
7 
7 

7 

8 
8 
8 
6 
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TABLE m.- INPUT CONFIGURATION DATA AND PLOT SPECIFICATIONS FOR A 
FIGHTER-TYPE CONFIGURATION SHOWN IN THE PERSPECTIVE 
VIEWS OF FIGURE 5 - Continued 


• 162 
1 .374 

.352 

.542 

.719 

• 899 

! .044 

0.000 

.166 

.342 

.522 

.684 

• 867 

1 .274 
0.000 

1 .266 

1 .225 

1.147 

1 .040 

.908 

-.760 

-.760 

-.753 

-.725 

-.672 

-.581 

.277 
1 .531 

• 464 

.664 

.860 

1 .024 

1.174 

0.000 

.188 

.375 

.562 

.753 

• 935 

1 .319 
0.000 

1 .327 

1 .313 

1.243 

1.149 

.992 

-.714 

-.71 4 

-.712 

-.687 

-.629 

-.526 

.401 
1 .995 

.606 

• 817 

1.040 

1 .224 

1 .392 

0.000 

.252 

• 468 

.720 

• 935 

1 .102 

1 .358 
0.000 

1 .356 

1 .321 

1 .252 

1.127 

1 .029 

-.719 

-.719 

-.704 

-.650 

-.548 

-.406 

.703 

2.323 

.921 

1.138 

1.327 

I .514 

1 .728 

0.000 

.235 

• 466 

.707 

• 933 

1.136 

1 .380 
0.000 

1 .386 

1 .377 

1.333 

1 .243 

1.156 

-.701 

-.700 

-.697 

-.652 

-.553 

-.386 

• 738 
2.617 

.951 

1.185 

1 .414 

1.635 

1 .886 

0.000 

.232 

• 467 

.715 

• 945 

1.149 

1 .390 
0.000 

1 .397 

1 .405 

1.390 

1 .337 

1 .242 

-.688 

-.688 

-.683 

-.645 

-.553 

-.392 

.757 

2.776 

.972 

1 .208 

1 .464 

1 .710 

1 .999 

1 1 . 1 25 

1 1 .958 

12.792 

13.625 

14.458 

15.292 

0.000 

.238 

• 472 

.721 

• 958 

1.161 

1 .397 
.875 

1 .405 
• 61 1 

1 .410 
• 312 

1 .398 
0.000 

1 .344 

1 .253 

-.691 

-.690 

-.687 

— . 648 

-.551 

-.389 

.767 

2.490 

.988 

2.657 

1 .225 
2.759 

1 .479 
2.794 

1 .723 

2.009 

0.000 

.229 

• 476 

.722 

• 965 

1.166 

1 .408 
.913 

1 .419 
.650 

1 .430 
• 333 

1.436 

0.000 

1.410 

1 .379 

-.688 

— • 68 8 

-.683 

-.650 

-.559 

-.399 

.769 

.990 

1 .227 

1.493 

1 .791 

1 .938 


1.165 

1 .258 

1 .324 

1 .359 

Z 

8 





2 

6 

1 .008 

1 .126 

1.217 

1 .261 

Y 

9 

• 750 

• 584 

• 400 

• 203 

Y 

9 





Y 

9 

-.463 

-.310 

-.113 

.079 

Z 

9 

1 .301 

I .394 

1 .467 

1 .514 

Z 

9 





2 

9 

1 .090 

1 .205 

1 .283 

1 .312 

Y 

10 

.873 

.684 

• 500 

• 247 

Y 

1 0 





Y 

1 0 

-.381 

-.213 

-.016 

.196 

Z 

1 0 

1 .572 

1 .753 

1 .873 

1 .968 

2 

10 





2 

10 

1 .241 

1 .322 

1 .344 

1 .351 

Y 

1 1 

.898 

.713 

• 495 

.244 

Y 

1 1 





Y 

1 1 

-.201 

.049 

• 265 

.483 

Z 

1 1 

1 .907 

2.082 

2.216 

2.297 

2 

1 1 





Z 

1 1 

1 .263 

1 .336 

1 .365 

1 .372 

Y 

12 

• 998 

• 807 

• 554 

• 277 

Y 

12 





Y 

12 

-. 182 

.044 

.290 

• 521 

2 

12 

2.135 

2.327 

2.486 

2.568 

2 

12 





2 

12 

1 .277 

1 .348 

1 .370 

1 .380 

Y 

13 

1 .076 

• 864 

• 606 

.308 

Y 

13 





Y 

13 

-.101 

• 063 

• 309 

• 537 

2 

13 

2.259 

2.469 

2.634 

2.739 

2 

13 





2 

13 

16.125 

16.958 

17.792 

18.333 

XFUS 

10 

1 .287 

1.356 

1 .379 

1 .387 

Y 

1 

1 .253 

I .253 

1 .253 

1 .087 

Y 

1 





Y 

1 

-. 178 

• 070 

• 319 

.548 

Z 

1 

2.009 

2.009 

2.009 

2.281 

2 

1 





2 

1 

1 .294 

1 .367 

1 .384 

1 *396 

Y 

2 

1 .407 

1 .407 

1 .344 

1 • 146 

Y 

2 





Y 

2 

183 

• 073 

.321 

• 543 

2 

2 

1 .958 

2.070 

2.108 

2.334 

2 

2 
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TABLE III.- INPUT CONFIGURATION DATA AND PLOT SPECIFICATIONS FOR A 
FIGHTER-TYPE CONFIGURATION SHOWN IN THE PERSPECTIVE 
VIEWS OF FIGURE 5 - Continued 


2 #563 

2.725 

2.841 

2.873 

0.000 

• 231 

.471 

.727 

1 .405 

1 .419 

1 .431 

1.444 

• 936 

• 647 

.331 

0.000 

-.676 

-.676 

-.673 

-.653 

.762 

• 984 

1 .226 

1 .506 

2.599 

2.768 

2.872 

2.904 

0.000 

• 234 

.475 

.730 

1 .413 

1 .426 

1 .439 

1 .456 

.947 

.658 

.326 

0.000 

-.666 

-.666 

-.666 

-.650 

• 760 

• 993 

1 .233 

1.513 

2.620 

2.771 

2.867 

2.901 

0.000 

.225 

.459 

.721 

1 .424 

1 .442 

1 .459 

1 .479 

.953 

.664 

.334 

0.000 

-.657 

-.657 

-.656 

-.650 

.767 

.993 

1 .239 

1.519 

2.621 

2.752 

2.837 

2.867 

0.000 

• 214 

• 447 

.712 

1 .437 

1 .453 

1 .470 

1 .490 

• 942 

• 647 

• 333 

0.000 

-.647 

-.647 

-.647 

-.643 

• 757 

• 984 

1 .230 

1.519 

2.600 

2.715 

2.786 

2.809 

0.000 

• 223 

.459 

.719 

1 .446 

1 .464 

1 .484 

1 .504 

.917 

• 624 

.313 

0.000 

-.643 

-.643 

-.643 

-.639 

.772 

1 .004 

1 .250 

1.546 

2.575 

2.675 

2.737 

2.755 

0.000 

.224 

• 459 

• 716 

1 .463 

1 .483 

1 .503 

1.520 

.896 

.607 

.297 

0.000 

-.639 

-.639 

-.639 

-.635 

• 767 

1 .010 

1 .256 

1 .475 

2.539 

2.612 

2.667 

2.679 

0.000 

• 221 

.456 

.715 

1 .488 

1 .507 

1 .529 

1.539 

• 878 

.585 

.296 

0.000 

-.624 

-.624 

-.624 

-.622 

.778 

1 .014 

1 .269 

1 .403 

2.495 

2.553 

2.601 

2.616 

0.000 

.223 

• 454 

• 702 


.972 

1.175 

1 .300 

1 .366 

1 .448 

1 .444 

1 .402 

1 .402 

-.566 

— .404 

-.190 

.064 

1 .813 

1 .845 

1 .845 

2.216 

• 978 

1.180 

1.306 

1 .370 

1 .471 

1 .407 

1 .407 

1 .407 

-.584 

-.416 

-.166 

• 061 

1.764 

1 .759 

1 .759 

2.323 

• 981 

1 .201 

1 .319 

1 .376 

1 .489 

1 .409 

1 .409 

1 .409 

-.586 

-.431 

-.194 

• 058 

1 .687 

1 .677 

1 .677 

2.389 

• 976 

1 .201 

1 .324 

1 .384 

1 .498 

1 .409 

1 .409 

1 .409 

-.601 

-.447 

-.215 

• 049 

1 .615 

1 .603 

1 .603 

2.418 

• 991 

1 .224 

1 .341 

1 .390 

1 .504 

1 .403 

1 .403 

1 *403 

-.604 

-.447 

-.214 

• 055 

1.546 

1 .532 

1 .532 

2.431 

• 993 

1 .233 

1 .359 

1 .402 

1 .401 

1 .401 

1 .401 

1.401 

-.604 

-.477 

-.231 

.048 

1 .456 

1 .456 

1 .456 

2.423 

• 999 

1 .274 

1 .382 

1 .429 

1 .409 

1 .409 

1 .409 

1 .409 

-.602 

-.483 

-.244 

.037 

1 .384 

1 .384 

1 . 384 

2.41 1 

• 909 

1 .268 

1 .393 

1 .436 




Z 

2 

1 .381 

1 .394 

Y 

3 

1 .402 

1 .1 75 

Y 

3 



Y 

3 

• 316 

• 547 

Z 

3 

2.216 

2.368 

Z 

3 



2 

3 

1 .387 

1 .400 

Y 

4 

1 .407 

1 .208 

Y 

4 



Y 

4 

.310 

• 539 

Z 

4 

2.323 

2.433 

Z 

4 



z 

4 

1 .392 

1 .407 

Y 

5 

1 .409 

1 .244 

Y 

5 



Y 

5 

.313 

• 541 

Z 

5 

2.389 

2.464 

Z 

5 



Z 

5 

1 .403 

1 .419 

Y 

6 

1 .409 

1 .249 

Y 

6 



Y 

6 

• 298 

.530 

2 

6 

2.418 

2.473 

Z 

6 



Z 

6 

1 .410 

1 .428 

Y 

7 

1 .403 

1 .236 

Y 

7 



Y 

7 

• 307 

• 536 

Z 

7 

2.431 

2.475 

Z 

7 



z 

7 

1 .424 

1 .443 

Y 

8 

1 .401 

1 .231 

Y 

8 



Y 

8 

• 303 

• 539 

z 

6 

2.423 

2.456 

2 

8 



Z 

8 

1 .452 

1 .472 

Y 

9 

1 .409 

1 .217 

Y 

9 



Y 

9 

.296 

.538 

2 

9 

2.41 1 

2.437 

2 

9 



Z 

9 

1 .456 

1 .478 

Y 

10 
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1 .497 

1 .516 

1 .540 

1.547 

1 .401 

1 .401 

1 .401 

1 .401 

1 .401 

1 .209 

Y 

1 0 

• 864 

• 581 

• 284 

0.000 







Y 

10 

-•618 

-.618 

-.618 

-.616 

-.600 

-.505 

-.259 

.028 

.281 

.520 

2 

10 

• 761 

.984 

1 .259 

1.361 

1 .340 

1 .340 

1 .339 

2.393 

2.393 

2.416 

2 

10 

2*460 

2.504 

2.551 

2.564 







2 

10 

18.333 

18.625 

19.075 

19.458 

20.194 

21.125 

21 .958 

22.792 

23.625 

24.458 

XFUS 

10 

25*292 

26.125 

26.958 

27.519 

28.000 

28.625 

29.458 

30.292 

31.125 

31 .958 

XFUS 

20 

32.563 










XFUS 

21 

0.000 

.706 

.992 

1 .272 

1 .399 

1 .435 

1 .686 

1 .939 

2.186 

2.414 

Y 

1 

2.626 

2.780 

2.906 

2.989 

3.027 

3.01 1 

3.011 

3.011 

3.011 

3.011 

Y 

1 

2.766 

2.357 

2.043 

1.726 

1 .400 

1 .400 

1 .215 

.874 

.283 

0.000 

Y 

1 

-.623 

-.61 9 

-.603 

-.506 

-.257 

-.018 

-.018 

• 016 

.098 

• 225 

2 

1 

• 403 

.593 

.820 

1 .071 

1 .336 

1 .583 

1 .503 

1 .503 

1 .583 

1 .583 

2 

1 

1 .546 

1 .484 

1 .438 

1 .389 

1 .342 

2.401 

2.423 

2.471 

2.566 

2.580 

2 

1 

0.000 

.714 

1 .007 

1 .278 

1 .403 

1 .433 

1 .692 

1 .957 

2.223 

2.458 

Y 

2 

2.667 

2.830 

2.957 

3.044 

3.071 

3.054 

3.054 

3.054 

3.054 

3.054 

Y 

2 

2 .766 

2.354 

2 • 043 

1 • 727 

1.411 

1.411 

1.198 

.069 

• 281 

0.000 

Y 

2 

-.621 

-.618 

-.608 

-.500 

-.253 

-. 108 

-.107 

-.063 

.025 

.156 

2 

2 

• 336 

.551 

.788 

1 .053 

1.310 

1 .569 

1 .569 

1 .569 

1 .569 

1 .569 

2 

2 

1 .528 

1 .467 

1 .422 

1.373 

1 .324 

2.396 

2.417 

2.457 

2.542 

2.560 

2 

2 

0.000 

.710 

• 996 

1 .274 

1 .420 

1 .446 

1 .708 

1 .978 

2.242 

2.470 

Y 

3 

2.675 

2.840 

2.969 

3.048 

3.083 

3.076 

3.076 

3.076 

3.076 

3.076 

Y 

3 

2.768 

2.359 

2.04 3 

1 .724 

1.411 

1.411 

1.190 

• 850 

• 295 

0.000 

Y 

3 

-.620 

-.616 

-.610 

-.519 

-.278 

-.160 

-.152 

-.110 

-.019 

• 112 

2 

3 

.292 

.497 

• 740 

1 .000 

1 .263 

1 .525 

1 .525 

1 .525 

1 .525 

1 .525 

2 

3 

1 .487 

1 .434 

1.391 

1.347 

1.306 

2.372 

2.394 

2.429 

2.502 

2.522 

2 

3 

0.000 

.706 

• 993 

1 .294 

1 .435 

1 .451 

1 .716 

1 .980 

2.235 

2.468 

Y 

4 

2.673 

2.844 

2.971 

3.059 

3.092 

3.081 

3 . 08 ! 

3.081 

3 . 0 B 1 

3*081 

Y 

4 

2.769 

2.364 

2.047 

1.734 

1.413 

1 .413 

1.166 

.838 

• 303 

0.000 

Y 

4 

-.609 

-.607 

-.595 

-.514 

-.276 

-.188 

-.184 

-.144 

-.051 

• 087 

2 

4 

.268 

• 479 

.71 1 

.967 

1 .234 

1 .498 

1 .498 

1 .498 

1 .498 

1 .498 

2 

4 

1 .464 

1 .420 

1 .387 

1.352 

1 .318 

2.355 

2.378 

2.410 

2.475 

2.469 

2 

4 

0.000 

• 705 

• 990 

1 .292 

1 .452 

1 .464 

1 .728 

1 .999 

2.246 

2.470 

Y 

5 

2.673 

2.830 

2.952 

3.025 

3.058 

3.052 

3.052 

3.052 

3.052 

3.052 

Y 

5 

2.768 

2.359 

2.045 

1 .730 

1.411 

1.411 

1.138 

• 812 

.310 

0.000 

Y 

5 

-.604 

-.600 

-.586 

-.501 

-.275 

-.249 

-.245 

-.197 

-.098 

• 047 

2 

5 

.228 

• 436 

.684 

.929 

1.191 

1 .443 

1 .443 

1 .443 

1 .443 

1 .443 

2 

5 

1 .424 

1 .401 

1 .382 

1.365 

1.346 

2.328 

2.344 

2.372 

2.422 

2.435 

2 

5 

0.000 

.699 

.904 

1.264 

1 .475 

1 .475 

1 .754 

2.027 

2.292 

2.503 

Y 

6 

2.694 

2.827 

2.929 

2.992 

3.016 

3.027 

3.027 

3.027 

3.027 

3.027 

Y 

6 

2.766 

2.353 

2.040 

1.725 

1 .407 

1 .407 

1.113 

.781 

• 313 

0*000 

Y 

6 

-.594 

-.592 

-.570 

-.487 

-.325 

-.325 

-.317 

-.254 

-.133 

.022 

2 

6 

.243 

.461 

.704 

.962 

1 .216 

1 .457 

1 .457 

1 .457 

1 .457 

1 .457 

2 

6 

1 .455 

1 .448 

1 .440 

1 .435 

1 .431 

2.295 

2.305 

2.318 

2.368 

2.381 

2 

6 
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0*000 

*686 

• 964 

1 *219 

1 .414 

1 .414 

1 *718 

2.000 

2.270 

2*492 

Y 

7 

2.671 

2*798 

2.890 

2*942 

2.966 

2.973 

2*973 

2.973 

2*973 

2*973 

Y 

7 

2*768 

2.356 

2.042 

1.729 

1.411 

1 .41 I 

1 *098 

.777 

.318 

0*000 

Y 

7 

-*584 

-.580 

-.570 

-.500 

-.408 

-.408 

-.381 

-.315 

-•175 

*014 

Z 

7 

*248 

.488 

• 746 

1.002 

1 *259 

1 .509 

1 .509 

1 *509 

1 .509 

1 *509 

Z 

7 

1 *514 

1 .519 

1 .525 

1*528 

1 .533 

2.271 

2.270 

2.283 

2*333 

2*348 

z 

7 

0.000 

.685 

• 966 

1*225 

1 *440 

1 .440 

1 .762 

2*071 

2*340 

2*547 

y 

8 

2*704 

2.798 

2.852 

2*875 

2*890 

2.896 

2.896 

2*896 

2*896 

2.896 

Y 

8 

2*770 

2.356 

2*042 

1*725 

1.412 

1 .412 

1 .090 

*760 

*314 

0*000 

Y 

e 

-•506 

-.583 

-.562 

-.499 

-.461 

-.461 

-.429 

-.319 

-.129 

*110 

Z 

8 

*379 

.647 

.917 

1*179 

1 *405 

1 *632 

1 .632 

1 .632 

1 .632 

1 *632 

Z 

8 

1 *634 

1 .647 

1 .656 

1 .664 

1 .673 

2.257 

2.250 

2.245 

2*295 

2*309 

z 

6 

0*000 

.680 

• 957 

1.192 

1.410 

1 .410 

1 .748 

2.068 

2*325 

2*524 

Y 

9 

2*653 

2.743 

2*797 

2.814 

2*824 

2*830 

2.830 

2.830 

2*830 

2*830 

Y 

9 

2*768 

2*356 

2.041 

1 .726 

1 *408 

1 .408 

1 .069 

• 742 

*316 

0*000 

Y 

9 

-.569 

-.565 

-.557 

-.526 

-.51 1 

-.51 1 

-.478 

-.343 

-.124 

• 146 

Z 

9 

*426 

.695 

.958 

1 .21 3 

1 *440 

1 .676 

1 .676 

1 .676 

1 *676 

1 *676 

z 

9 

1 *660 

1 .723 

1 .757 

1*789 

1 *820 

2.239 

2.234 

2.221 

2*277 

2*298 

z 

9 

0*000 

.684 

• 972 

1*193 

1.414 

1 .414 

1 .779 

2.094 

2*339 

2.506 

Y 

10 

2*618 

2.695 

2.743 

2.767 

2.785 

2.787 

2.787 

2.787 

2*787 

2.787 

Y 

10 

2*764 

2.356 

2*044 

1.729 

1 .408 

1 .408 

1 .057 

*728 

*318 

0*000 

Y 

10 

-.559 

-.557 

-.560 

-.566 

-.567 

-.567 

-.522 

-.352 

-.091 

.208 

Z 

10 

*518 

.785 

1 .036 

1 .283 

1 .505 

1 .722 

1 .722 

1 *722 

1 *722 

1 *722 

Z 

10 

1 *725 

1 .808 

1 *870 

1 .929 

1 .990 

2*226 

2.217 

2.199 

2*257 

2.283 

z 

10 

0*000 

.585 

*827 

1.109 

1 .414 

1 .414 

1 .772 

2.094 

2*329 

2*482 

Y 

1 1 

2*577 

2.639 

2*688 

2.720 

2.746 

2.756 

2.756 

2.756 

2*756 

2*756 

Y 

1 1 

2*756 

2.357 

2.043 

1 .731 

1.411 

1 .41 1 

1 .036 

.716 

*320 

0.000 

Y 

1 1 

-*533 

-.531 

-.530 

-.575 

-.593 

-.593 

-.545 

-.359 

-*071 

.257 

Z 

1 1 

*561 

.824 

1 .077 

1 .305 

1 .515 

1 .728 

1 .805 

1 .805 

1 *805 

1 .805 

Z 

1 1 

1 *805 

1 .920 

2.007 

2*094 

2.1 79 

2.214 

2*199 

2.181 

2*236 

2.255 

z 

1 1 

0*000 

.602 

.849 

1*152 

1.411 

1 .41 1 

1 *769 

2.062 

2*313 

2*450 

Y 

12 

2*539 

2.594 

2.636 

2.670 

2.703 

2.718 

2.719 

2.719 

2.719 

2*719 

Y 

12 

2.722 

2.357 

2.041 

1 .725 

! .409 

1 .409 

1 .015 

• 699 

.31 3 

0*000 

Y 

12 

-.508 

-.508 

-.508 

-.571 

-.600 

-.600 

-.551 

-.361 

-.051 

*281 

Z 

12 

*596 

.856 

1 .092 

1 • 307 

1 *518 

1 .720 

1 .794 

1 .794 

1 .794 

1 *794 

Z 

12 

1 .892 

1 .998 

2.089 

2.154 

2.189 

2.189 

2.170 

2.147 

2.207 

2*227 

z 

12 

0*000 

.626 

.885 

1.146 

1.411 

1 .41 1 

1 .769 

2.076 

2*308 

2*436 

Y 

13 

2*523 

2.576 

2.612 

2.64 1 

2*669 

2.688 

2.690 

2.690 

2*690 

2*690 

Y 

13 

2.704 

2.359 

2.045 

1.732 

1 *420 

1 .420 

.996 

• 686 

*319 

0*000 

Y 

13 

-.469 

-.469 

-.467 

-.539 

-.672 

-.572 

-.516 

-.311 

*002 

.313 

Z 

13 

*616 

.877 

1.117 

1 .332 

1 .531 

1 .729 

1 .793 

1 .793 

1 *793 

1 .793 

Z 

13 

2*029 

2.091 

2.102 

2 . 147 

2.179 

2.179 

2.147 

2.127 

2*187 

2.215 

z 

13 

0*000 

.619 

.882 

1.138 

1 .409 

1 .409 

1 .756 

2.058 

2*281 

2.422 

Y 

14 

2*513 

2.565 

2.599 

2.629 

2.650 

2.672 

2.672 

2.672 

2*672 

2*672 

Y 

14 
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FIGHTER-TYPE CONFIGURATION SHOWN IN THE PERSPECTIVE 
VIEWS OF FIGURE 5 - Continued 


2.673 

2.365 

2. 045 

1 .729 

1 .414 

1.414 

- .439 

-.439 

-.439 

-.518 

-.545 

-.545 

• 634 

.883 

1.116 

1 .330 

1.522 

1 .719 

2.010 

2.072 

2.088 

2 . 128 

2.166 

2.166 

0.000 

• 629 

.868 

1.148 

1.411 

1.411 

2.51 1 

2.560 

2.588 

2.613 

2.635 

2.664 

2.673 

2.362 

2.044 

1 .728 

1 .406 

1.406 

-.426 

-.426 

-.424 

-.498 

-.527 

-.527 

.615 

.878 

1.117 

1.326 

1.519 

1 .718 

2.015 

2.064 

2.074 

2 . 124 

2.162 

2.162 

0.000 

• 657 

.928 

1 • 161 

1 .417 

1 .417 

2.491 

2.538 

2.563 

2.580 

2.613 

2.673 

2.641 

2.359 

2.048 

1 .727 

1 .389 

1 .389 

-.374 

-.371 

-.371 

-.445 

-.472 

-.472 

.644 

.896 

1.136 

1 .345 

1 .528 

1 .616 

2.009 

2.040 

2.051 

2 . 1 04 

2.154 

2.154 

0.000 

• 61 6 

• 876 

1.151 

1.412 

1 .412 

2.479 

2.528 

2.546 

2.571 

2.643 

2.742 

2.61 1 

2,359 

2.044 

1 .728 

1.412 

1 .412 

-.299 

-.299 

-.302 

-.377 

-.403 

-.403 

.663 

• 914 

1.147 

1 • 340 

1 .455 

1 .551 

1 .986 

2.016 

2.030 

2.089 

2.1 36 

2.136 

0.000 

• 587 

• 836 

1.127 

1.414 

1 .414 

2.459 

2.510 

2.630 

2.597 

2.661 

2.749 

2.676 

2.362 

2.044 

1.699 

1.412 

1.412 

-.213 

-.213 

-.217 

-.296 

-.319 

-.319 

.682 

• 921 

1.153 

1 .344 

1 .440 

1 .519 

1 .964 

1 .990 

2.000 

2.078 

2.121 

2.121 

0.000 

.557 

• 789 

1.103 

1.418 

1.418 

2.440 

2.490 

2.527 

2.602 

2.706 

2.864 

2.662 

2.362 

2.048 

1 .735 

1 .414 

1 .414 

-.125 

-.125 

-.124 

-. 179 

-.208 

-.208 

.700 

.936 

1.150 

1 .333 

1 .444 

1 .505 

1 .939 

1 .948 

1 .964 

2.043 

2.098 

2.098 

0.000 

.547 

• 769 

1.072 

1 .420 

1 .420 

2.396 

2.440 

2.461 

2.523 

2.679 

2.862 

2.679 

2.360 

2.048 

1 .733 

1.418 

1 .418 

-.043 

-.043 

-.043 

-.050 

-.059 

-.059 

• 743 

.976 

1.188 

1.315 

1 .417 

1 .478 

1 .917 

1 .924 

1 .928 

2.015 

2.082 

2.082 

0.000 

.51 9 

.745 

1 .026 

1.417 

1 .417 

2.348 

2.391 

2.430 

2.518 

2.673 

2.863 

2.670 

2.362 

2.042 

1.698 

1.418 

1.418 

.022 

• 024 

.026 

• 028 

• 036 

.036 


• 998 

• 678 

• 318 

0.000 

Y 

14 

-.485 

-.282 

• 014 

• 324 

Z 

14 

1.793 

1 .793 

1 ^793 

1 .793 

2 

14 

2.134 

2.100 

2.170 

2.197 

2 

14 

1 .751 

2.054 

2.275 

2.413 

Y 

15 

2.705 

2.864 

2 • 864 

2.673 

Y 

15 

.997 

• 679 

• 317 

0.000 

Y 

15 

-.467 

-.269 

• 016 

• 301 

Z 

15 

1 .766 

1 .786 

1 .797 

1 .827 

Z 

15 

2.129 

2.094 

2.164 

2.186 

z 

15 

1 .746 

2.043 

2.259 

2.401 

Y 

16 

2.758 

2.862 

2.862 

2.641 

Y 

16 

• 981 

.667 

• 314 

0.000 

Y 

16 

-.406 

-.214 

• 063 

• 353 

2 

16 

1 .697 

1 .723 

1 .858 

1 .892 

Z 

16 

2.116 

2.079 

2.144 

2.166 

2 

16 

1 .738 

2.021 

2.237 

2.382 

Y 

17 

2.860 

2.860 

2.860 

2.61 1 

Y 

17 

• 993 

• 687 

• 315 

0.000 

Y 

17 

-.331 

-. 140 

• 1 08 

• 380 

2 

17 

1 .610 

1 .610 

1 .906 

1 .953 

2 

17 

2.094 

2.079 

2.124 

2.122 

Z 

17 

1 .725 

2.001 

2.217 

2.359 

Y 

18 

2.862 

2.862 

2.862 

2.676 

Y 

16 

• 990 

• 693 

• 316 

0.000 

Y 

18 

-.248 

-.080 

• 163 

• 417 

Z 

18 

1 .556 

1 .556 

1 .939 

1 .964 

2 

18 

2.078 

2.075 

2.093 

2.093 

Z 

18 

1 .710 

1 .968 

2.183 

2.336 

Y 

19 

2.864 

2.864 

2 • 864 

2.682 

Y 

19 

1 .010 

.708 

• 317 

0.000 

Y 

19 

-.149 

• 002 

• 214 

• 449 

Z 

19 

1 .505 

1 .505 

1 .938 

1 .939 

Z 

19 

2.077 

2.076 

2.073 

2.071 

z 

19 

1 .694 

I .939 

2.144 

2.299 

Y 

20 

2.862 

2.862 

2.862 

2.679 

Y 

20 

1 .026 

• 714 

• 315 

0.000 

Y 

20 

-.006 

• 1 15 

.296 

.505 

2 

20 

1 .478 

1 ^478 

1 .91 1 

1 .91 7 

2 

20 

2.081 

2 ^ O 70 

2.076 

2.074 

2 

20 

1 .677 

1 .912 

2.106 

2.251 

Y 

21 

2.863 

2.863 

2.863 

2.670 

Y 

21 

1 .027 

• 714 

• 316 

0.000 

Y 

21 

.084 

.196 

.365 

.550 

2 

21 
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FIGHTER-TYPE CONFIGURATION SHOWN IN THE PERSPECTIVE 
VIEWS OF FIGURE 5 - Concluded 
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TABLE IV.- INPUT CONFIGURATION DATA AND PLOT SPECIFICATIONS FOR THE 

STEREO FRAMES SHOWN IN FIGURE 6 
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TABLE IV.- INPUT CONFIGURATION DATA AND PLOT SPECIFICATIONS FOR THE 
STEREO FRAMES SHOWN IN FIGURE 6 - Continued 
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TABLE IV.- INPUT CONFIGURATION DATA AND PLOT SPECIFICATIONS FOR THE 


STEREO FRAMES SHOWN IN FIGURE 6 - Concluded 
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Figure 1.- Orthographic projections of a representative airplane configuration. 












Concluded 








(a) Configuration Description 
Identification Card: 



NR.\D\ j Nl-'ORX 1 SRADxT^ORX j NR.\DX 







Concluded. 






NOIl ViflS 1 N I W a V 35VidS SDIin^^VNOSi^^f 

NGHSIAia NOllVWSOiNf lV3!NHD3i QNV :>lif^il>S 


:ujQJi pBUf^iqo dq Aetu suoj^eotiqnd 

X^OJOUlf35j^ plIB 

pue sjaod^^ uoubzi|uq X^o|out|3^X " 
■s|^jg i|O^X ^pnpuj suGUBc^iqn j *suo|3pi|4dt 

SDtcI^JSf-UOU 3^430 puXJ^ fUpJ5UIUJ03 Ul 3551^01 " 

JB|nDT3JB<i p Awa 5m|3 y$VM Xq p^sii 

.(Sojouq^aj iio uoumujojn^ ^OIXVDIl^^ 

Noixvziijjii a‘.x)'ionh;>h.l 

’s^iqdBJ^oijqiq |ip3<ls; po^ *s>|ooq3D^jnos 
^SJfOOqpUBq ‘SUOUBfiduiOD mp ‘sqdBJ^QUOUl 
^s5uTp33DOJd ^3U9J3JU03 GpppUT SUOT?B:>l|qnf[ 
■s^urAuDB vsy^ oa dojea jq lo^oip p^Ai jop 
uopmijojaj :SMOIXy:>ITOfM lYOddS 

*qsi|?u3 u[ uounqipsrp y§y|sj jaam ox 
p^j^jsno3 3^Bn^urj uSpJoJ b uj p^qsqqikt 

uoj3Bii^3^uf rgjsiOLLVlSNVHX iy:>INH33X 


esBqi jo AifjiqeiieAB eqi uo 


’^Hp3|^a^ou^ ^umtxo 02 tiOTjjiqajyox 
xuB3Joduii ut p3J3pisuo:> puB iuBjS JO 
ySVN ^ p32Bj^o;?f ^oi3mfliD|Uj qioiuq^o: 

puB Dynu^og :SX¥0d3^ m>X^ - 

- ‘suosBaj -jaqjo JO *uou 

xteuitut|a^^o:osncD3q 
TOJIlCgS^p P^JIUIJI UOf|BUIJO|Uj - 

B SB axuE^jod^i JO ss5pft|3jraA3u ihq^do3s uf - 
pBojq ssaj lidfjBUiJOjui ^SdXONI ' 

- ’^fp^fAtOUq 

SuiJSjX3 03 pPB ‘535|dUlQD 

qUB3J©34l| 

puBoyuu.>pg :sxE0d3H iy3IMHD3X 


SMOiXyoiTOnd ivs^MHDax aMv d®bHs3ic)s ysvM 

8S6rao X3y aovag am^ oixnvHG^ay^vNoixvM— ^ — 

.;jo9jraqt ^qi yuv sdiiidtpv x// Stmuajuoj UQUPiiao^^ fo ^ 

uofimuudi'Hp 91 pu4o 444^ pup ^pqv3 if 2vjt4 n^ppn pqf .jof ^pittuMi ^qf^ 

UQfiPUiSiUfiupY 3qj^ ’32 p 4^ pup BA3q4^QmiP aqt m pudiiw^^^ ^ffa " ” “ 

-pnouq upiuuci jo uotum4x^ '^qi ot * ' ' ainqu^two Oi SP qs pap nqkfoy 
dq qpjqs ^^}P}^ pPUU[l 3qi jo ^^tfliftj:}P ^Jp4}\ pUP lP^PPPi^^ : ~ : ,1 


OQ (irnurj-^ |EjsOf{ 
I^I unpviS) 3jqni,x\![5pun M 


•HHXSVHXSOd 




; ; ^ ;. ss3Nn$]^ivi^^^^ •.; 

idk - 

^2€V piiayKosay 


